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ABSTRACT 

One problem facing the Computer Aided Prototyping System (CAPS) project at the 
Naval Postgraduate School, is the lack of a large repository of existing reliable software 
components to draw upon for the creation of new prototype designs. Specifically, it is the 
lack of Prototype System Description Language (PSDL) specifications which describe Ada 
software components, that prevents Ada software components from being incorporated into 
the CAPS software base Previously, PSDL specification had to be generated manually for 
each Ada software component being added into the software base. This process was time 
consuming and error prone 

The primary goal of this thesis is to solve this problem by creating a tool which 
accepts an Ada Package Specification as input and automatically generates its 
corresponding Prototype System Description Language (PSDL) specification. The Ada 
package along with its PSDL specification may then be stored directly into the CAPS 
software base. 

The result of this thesis is a translator that examines each declaration contained in 
an Ada Package Specification and creates a corresponding PSDL specification. This tool 
allows the CAPS software base to be populated much faster utilizing existing DOD Ada 
software libraries such as the CAMP, ASSET, RAPID, and CRSS libraries. This tool has 
demonstrated its effectiveness by translating several complex components of the Common 
Ada Missile Packages into PSDL specifications 
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I. INTRODUCTION 


A. RAPID PROTOTYPING 

The classical approach to software development, the waterfall method, is a method 
in which a project moves forward one phase at a time [Ref. 1]. The phases consist of 
analysis, design, implementation, and testing. Each decision made in the analysis phase 
propagates through to the testing phase, and any problems encountered in the testing phase 
will require a return to the analysis phase to correct. 

Rapid prototyping provides an alternative method to the waterfall method. In rapid 
prototyping, a spiral rather than linear approach is followed, which allows various phases 
of development to proceed in parallel [Ref. 2]. A prototype is constructed quickly which is 
used to verify both the users requirements, and the designers interpretation of those 
requirements. A model for this method is shown in Figure 1 [Ref. 3], 

One hinderance to the idea of rapid prototyping is the time required to complete the 
coding of a system. The concept of software reuse is one that can dramatically reduce the 
time spent on coding. Utilizing existing software components, prototype designers can 
rapidly construct systems with significant functionality rather than mere skeletons with 
large numbers of procedural stubs. These software components are stored and retrieved 
from a library of software components which is an integral part of the prototype designers 
tools. 

B. THE CAPS SYSTEM 

Computer aided prototyping of hard real-time systems is the goal of the Computer 
Aided Prototyping System (CAPS) project at the Naval Postgraduate School. CAPS 
provides tools which enable users to graphically specify a system, retrieve existing 
software components from a software base and integrate them to form the specified 




prototype, perform timing analysis, and create a running prototype of a hard real-time 
system. Together these tools form the CAPS development environment shown in Figure 2. 



DBMS | 

Software 
Base ■■■ 
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changes/ 

evolution 


Initial requirements 
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Figure 1. The CAPS Prototyping Process 


Timing analysis in the prototype is performed by the schedulers which examine the 
prototype specifications to produce a static schedule and a dynamic schedule. A static 
schedule is generated to fulfill the timing requirements of all time critical components in 
the system, and ensure that each of these components is scheduled as frequently and as long 
as they require. A dynamic schedule is created to allow those components which are not 
time critical to be incorporated into the processor schedule on a not to interfere basis with 
the time critical operators. In order to accomplish the required analysis, the timing 
requirements of each component in the prototype system must be properly specified. The 
Prototype System Description Language (PSDL) is a language which has been designed to 
accomplish exactly this [Ref. 4], PSDL is a formal description language which provides a 
means to specify a variety of timing information for software components. Every software 
component which may be incorporated into a CAPS prototype must have a corresponding 





PSDL description to define its characteristics. While there exists a large body of Ada 
software components which could potentially be utilized in the creation of systems, few if 
any of these components have had corresponding PSDL descriptions created for them. 
Before proper PSDL descriptions can be generated for existing Ada components, a 
thorough understanding of the mapping from Ada package specifications into PSDL 
specifications is required. As PSDL is not a language with which most Ada programmers 



are familiar, a major goal of this thesis has been to create a tool which will examine Ada 
package specifications and automatically generate corresponding PSDL descriptions for 
those specifications.The CAPS software base provides a database for these Ada 
components and their PSDL descriptions. The PSDL descriptions serve as the target keys 
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in searches of the software database. Because prototype systems are specified using PSDL, 
it becomes necessary to be able to compare one PSDL specification against another. All 
PSDL components are one of two types, a PSDL type component, or a PSDL operator 
component. Scott Dolgoff has described and implemented methods for search, retrieval, 
and integration of PSDL operator components from the software base into CAPS 
prototypes [Ref. 5]. A secondary objective of this thesis is to develop methods for searching 
and retrieving PSDL type components from the software base. The implementation of these 
methods is left for future research. 

C. PROBLEM STATEMENT 

CAPS has been the focus of research efforts for several years. Many different parts 
of CAPS have been implemented as the end product of Doctoral and Masters’ theses over 
the years, during different stages of the design effort, using system models with higher level 
of maturity as time passes. 

The focus of this thesis is to create a tool which allows software base administrators 
to more rapidly incorporate existing Ada software components into the software base. This 
is accomplished by automatically generating a PSDL specification, which accurately 
describes the Ada component, which will be stored along with the Ada component into the 
software base for later retrieval. 

D. SCOPE 

The scope of this thesis includes the development of the previously described tool 
which can operate both interactively and in a batch mode. Additionally, methods for the 
retrieval of PSDL type components from the software base are developed as a foundation 
for further research in the area of software retrieval. 

E. ORGANIZATION OF THESIS 

Chapter II discusses software reuse, and the role which PSDL plays in software 
reuse within CAPS. Chapter III describes the mapping of Ada package specifications into 
PSDL component specifications. Chapter IV discusses the design of a tool which 



automatically translates Ada package specifications into corresponding PSDL component 
specifications. Chapter V describes methods for database search and retrieval of PSDL type 
components. Chapter VI presents conclusions. 






II. SOFTWARE REUSE 


A. WHY REUSE? 

In 1984 it was determined that “of all the code written in 1983, probably less than 
15% is unique, novel, and specific to individual applications. The remaining 85% appears 
to be common, generic and concerned with putting applications onto computers” [Ref 6], 
It is evident that by building large libraries of software components designed for reuse, time 
can be saved in the construction of future software systems Additionally, reliability in final 
products is enhanced by the use of time tested components Problems being faced today 
include the availability of large libraries of existing components, and the methods to 
retrieve and integrate these components into new software systems. The focus of this thesis 
is to provide a tool to automate the process of populating a library of software components, 
in this case the CAPS Software Base. 

B. COMPONENT RETRIEVAL AND REUSE 

In its simplest form, software reuse exists as a simple copy and paste operation in a 
programmers development environment. Programmers, familiar with their own previously 
written code, may reuse portions of that code when creating new systems. Two immediate 
benefits await that programmer, first, time is saved that would otherwise have been spent 
creating new code from scratch, and two, this recycled code has been debugged, and shown 
to be reliable within its original system. The goals of software reuse are to make this reuse 
effort pay off on a larger scale, rather than programmers reusing only their own code, it is 
desirable to have large libraries of tested and debugged components available to all 
members of an organization 

1. Software Component Retrieval Methods 

The collection of software components into some form of component library itself 
is no problem, the problem lies in methods for retrieving components from such a library, 
and integrating those components into a new software system Three primary methods for 




retrieving software components exist: browsing, informal specifications, and formal 
specifications [Ref 7] Each of these methods is described below: 

cl Browsers 

Browsers simply provide their users a means to scan through a software 
library in search of something useful. A successful search conducted with a browser will 
rely heavily on the users ability to recognize a desirable component when it is displayed by 
the browser. Components within libraries served by browsers must utilize recognizable 
naming conventions or be thoroughly commented in order for users to identify and evaluate 
a component as having potential for reuse. A significant amount of time can be spent 
scanning through large software libraries, which may negate the time savings gained by 
utilizing any retrieved components. 

b. Informal Specifications 

Informal specifications are queries constructed by a user with the goal of 
searching a software library for matching components. This type of search may utilize 
keywords to describe component behavior, or classify components by functionality. 
Attributes such as type and numbers of parameters may also be specified in a query of this 
sort. Successful queries of this sort require users to utilize appropriate keywords in order to 
locate desirable components. For example a user who queries based on the keyword “list” 
may not be informed of components in the library named “queue.” The burden of 
evaluating components located in this manner remains entirely with the user. Users must 
still perform final evaluation of components retrieved in this manner in order to determine 
their usefulness. 

c. Formal Specifications 

Formal specification searches attempt to rigidly define a users requirements. 
This type of search can be the most automated of all searches, and therefore produces the 
most accurate and efficient results of the three methods mentioned. Searches may be 
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conducted to compare a library components syntactic similarity and semantic similarity 
against a formal specification provided by a user. In syntactic matching, numbers and types 
of parameters, are compared against components within the library to yield only those 
components which have signatures which match a users query. Semantic matching 
attempts to go one step further by examining behaviors identified by the user as desirable, 
against known behavior of library components Components fully satisfying the constraints 
imposed by semantic matching are exactly those which can be integrated directly into the 
users new systems [Ref. 8] 

2. Component Retrieval Within CAPS 

There are currently three methods available for searching the CAPS software base 
for desirable components. These methods are browsing, keyword search, and PSDL query. 
[Ref 5] 

a. Browsing Within CAPS 

Browsing simply presents the user with a list of available type or operator 
components which may be further examined, and ultimately selected for inclusion in the 
users system, should they meet the users requirements 

b. Keyword Search in CAPS 

PSDL permits the use of keywords within PSDL components as shown in 
Figure 3 These keywords are used as the basis of keyword searches within CAPS. The user 
is presented with a list of all keywords currently used by CAPS software base components. 
From this list, the user can select one or more keywords, and the search will yield all 
components containing those keywords. The user may then browse the resulting list to find 
a specific component which satisfies the users requirements 

c. PSDL Query 

A PSDL query is a query by formal specification. In order to perform a 
PSDL query, the user must provide a PSDL specification as a query That query is 




compared against PSDL components stored in the CAPS software base, and only those 
components within the software base that satisfy the query are returned. Syntactic matching 
examines both numbers and types of parameters within the query component in search of 
a match within the software base. Syntactic matching has been described and implemented 
by John McDowell [Ref 9] and Scott Dolgoff [Ref. 5], 

OPERATOR Addition 

SPECIFICATION 

INPUT 

Opl Integer, 

Op2 : Integer 
OUTPUT 

Result: Integer 
KEYWORDS 
addition, sum 

END 

Figure 3. PSDL Component with Keywords 

Semantic matching examines not only the external interface to a component, 
but the internal behavior of the component as well [Ref 7], Internal behavior is evaluated 
by utilizing normalized algebraic expressions which describe the desired behavior in a 
query specification, and actual behavior of a software base component. These expressions 
are embedded in PSDL specifications in the form of OBJ3 conditional equations utilizing 
the axioms facility of PSDL. 

C. PROTOTYPE SYSTEM DESCRIPTION LANGUAGE 

PSDL is a text-based language designed to express the specifications of real-time 
systems It is based on a graphic model of vertices and edges, in which the vertices 
represent operators, or software process, and the edges represent the conceptual “flow” of 
data from one operator to another. Each vertex and edge may have associated timing 
constraint, and the vertices may have associated control constraints. 

Formally, the model used is that of an augmented graph, 
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G = (V, E, TOO, COO) 

where G is the graph, V is the set of vertices, E is the set of edges, T(v) represents the timing 
constraints for the vertices, and C(v) represents the control constraints for the vertices [Ref 

4]. 

Conceptually, PSDL operators may contain other operators to support the principle 
of abstraction Effectively, the prototype may be expressed as a flat graph, or a one level 
graph containing all the atomic operators and their streams An atomic operator is one that 
is implemented in a programming language, vice a composite operator consisting of other 
operators and streams 

For example, the following diagram shows a PSDL prototype: 



This graph represents an operation modelled by the Operator X that accepts one 
item from Stream A, it performs some operation on the data, and outputs Stream B. The 
Maximum Execution Time (MET), this is the maximum possible time the operator may 
take to execute the task, defined as 600 milliseconds. 




In this example, Operator X is decomposed as follows: 



Operator X is a composite operator, while Operator X1 and Operator X2 are atomic 
operators, implemented in Ada or some other language. The timing and control constraints 
on these atomic operators must be consistent with those of their parent operator. In a single 
processor the combined METs of these atomic operators can not be greater than their 
parent. Operator X is really not needed to implement the prototype. It serves merely to 
abstract the functionality of its child operators. A more detailed description of the PSDL 
may be found in [Ref 4] and [Ref. 3], 
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III. MAPPING ADA 95 TO PSDL 


A. INTRODUCTION 

In order to perform the translation of Ada software into PSDL specifications, a well 
formulated set of rules is required which will accept all legal Ada programs, and provide 
an accurate translation in all cases Past research within the CAPS project has provided the 
capability to perform Software Base queries based upon syntactic attributes of desired 
software components This syntactic matching process serves as a front end filter for later 
semantic matching operations. The syntactic characteristics of an Ada package can be 
observed entirely within the package specification by examining the number of procedure 
declarations, and the number and type of arguments to those procedures. Semantic 
matching operations must focus on the actual behavior exhibited by component software 
packages Behavioral characteristics can not be inferred from a package specification 
alone, and it becomes necessary to examine the package bodies of software components in 
order to provide effective semantic matching services. 

The work in this thesis provides additional capabilities for existing syntactic 
matching services in the CAPS environment. The focus of the translation effort is therefore 
limited to Ada package specifications. Future research will examine the possibilities of 
extending these methods to cover Ada package bodies. 

B. THE MAPPING SUBSET OF ADA 

The CAPS software base, and retrieval tools are set up in a way that requires Ada 
software components to be contained within an Ada package. For that reason, the starting 
point for the translation effort, which is the focus of this thesis, is the subset of the Ada 95 
language which is required to specify package specifications This subset is expressed by 
the abstract syntax of Appendix A Given this grammar subset, there are productions which 
have no translation to PSDL, productions which have some form of translation to PSDL, 
and productions which translate in a nearly one to one manner to PSDL. 




1. Basic Rules for Translations 

The translator accepts Ada 95 package specifications and produces appropriate 
PSDL specifications which describe the given Ada component. The input Ada component 
must be a valid Ada 95 package specification free of syntax errors. The output of the 
translator will be a valid PSDL component. PSDL components are either data types or 
operators A PSDL operator represents a single operation which may have inputs and 
outputs A PSDL data type represents a state machine along with the associated operators 
to manipulate that state machine. 

Ada procedures translate rather straightforwardly into PSDL operators as shown in 
Figure 6 Ada packages which contain a single procedure declaration will translate into 


Ada 

procedure ExampleProc(pl : typel, p2 : outtype2; p3 : in outtype3); 

PSDL 

operator ExampleProc 
specification 
input 

pi : typel, 
p3 : type3 
output 

p2 : type2, 
p3 : type3 
end 

implementation ada ExampleProc 
end 

Figure 6. Translation of an Ada Procedure 


PSDL operator components The name of the PSDL operator component will be that of the 




single procedure contained in the Ada package. For example, the Ada package of Figure 7 


package OneProc_pkg is 

DemoException : exception; 
procedure Procl(x : integer; y : in out float); 
end OneProc_pkg; 

Figure 7. Ada Package Containing a Single Procedure 


becomes the PSDL operator of Figure 8. Ada package specifications which contain either 


operator Procl 
specification 
input 

x: integer, 
y : float 
output 
y : float 
exceptions 

DemoException 

end 

implementation ada Proc 1 

end _ 

Figure 8. PSDL Translation of Single Procedure Package 


no procedure declarations or two or more such declarations will translate into PSDL type 
components. In this case, the package must contain a type declaration for an abstract data 
type upon which all of the procedures within the package operate. The name of the PSDL 
type component will be that of the abstract data type so defined. An example of a well 


15 






formed PSDL type component is shown as an Ada package specification in Figure 9 and in 


package Set_pkg is 
type Set is private; 

DemoException: exception; 

procedure Union(sl, s2 : in Set; Result; out Set); 

SecondException : exception; 

procedure Size(s : in Set; result: out integer); 

private 

type Set is array(1..10) of integer; 
end Set_pkg; 

Figure 9. Ada Package with Two Procedures 


Figure 10 as its corresponding PSDL specification. Current CAPS prototype generation 


type Set 

specification 
operator Union 
specification 
input 

si, s2: Set 
output 

Result: Set 
exceptions 

DemoException, SecondException 
end 

operator Size 
specification 
input 

s: Set 
output 

Result: integer 
exceptions 

DemoException, SecondException 
end 
end 


Figure 10. PSDL Translation of Two Procedure Package 


tools do not allow for the use of functions within Ada software components. Operations 





which must return a value should be written as procedures with an additional out parameter 
which is used to pass the return value to the calling unit. Within an Ada package 
specification, each procedure will translate into a PSDL operator specification. 

2. Productions Which do not Translate to PSDL 

The following list represents Ada 95 productions which have no legitimate 
translation to PSDL: 

• Pragmas. 

• Object declarations. 

• Number declarations. 

• Type declarations. 

• Subtype declarations. 

• Task declarations. 

• Function declarations. 

• With and Use clauses. 

• Generic formal parameters which are packages. 

3. Productions Which Translate to PSDL 

The following Ada productions have some form of translation into PSDL: 

• Package declarations (including generics). 

• Procedure declarations (including generics). 

• Exception declarations. 

• Generic formal parameters (except packages). 

Packages translate as described previously. Ada procedures are translated to PSDL 
by listing the in and in out parameters of the procedure as inputs of the translated PSDL 
operator, and the out and in out parameters as outputs of the translated PSDL operator. All 
exceptions declared within a package are listed as PSDL exceptions of all translated PSDL 
operators. This approach to exceptions is a conservative approximation that includes all 
possible behaviors, as it is not possible by examining an Ada package specification to 
determine which declared exceptions will be raised by particular procedures. Restricting 
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exception declarations to only those operators which actually raise them would require 
analysis of Ada components to be extended to the package bodies as well. This requires a 
considerable amount of additional computational effort with relatively little gain in 
translational accuracy. 

4. Generic Formal Parameters 

Naming conventions were required in order to properly translate generic formal 
parameters in an Ada specification into generic formal parameters of a PSDL component. 
The translations for generic formal type parameters are shown in Figure 11. In order to 


Ada 

PSDL 

type tl is (<>); 

tl : DISCRETE TYPE 

type t2 is RANGE <>; 

t2 : RANGE TYPE 

type t3 is MOD <>; 

t3 : MOD TYPE 

type t4 is DELTA o; 

t4: DELTAJTYPE 

type t5 is DELTA <> DIGITS <>; 

t5 : DELTA_DIGIT_TYPE 

type t6 is DIGITS o; 

t6 : DIGITS_TYPE 

type tl is PRIVATE; 

tl : PRTVATE_TYPE 


Figure 11. Translation of Generic Formal Parameters 


specify generic function and procedure parameters, it is necessary to utilize the array syntax 
of PSDL to specify the parameters, and the associated types of the Ada function and 
procedure parameters. The translation of an Ada generic formal function parameter is 
shown in Figure 12. PSDL array syntax is utilized to specify the formal parameters and the 

Ada: 

with function funcl(parml : integer; parm2 : float) return boolean is o; 

PSDL: 

fund : function [ parml : integer, parm2 : float, return : boolean ] 


Figure 12. Translation of Generic Formal Function Parameter 





return type of the parameter function. The return type is appended to the formal parameters 
of the function to make up the array components. The identifier return in the PSDL 
translation is guaranteed to be unique since it is a keyword in Ada, and no identifier in Ada 
may bear that name. It is not necessary to include information about the modes of the 
various parameters as they can be inferred from the fact that it is an Ada function being 
translated. All formal parameters are assumed to be in parameters, and the return parameter 
is assumed to be an out parameter. The translation of an Ada generic formal procedure 
parameter takes on a slighdy different form. In the case of a procedure, it is necessary to 
encode the mode information for each formal parameter of the procedure. Again, the syntax 
for PSDL generic types is utilized. Nesting of PSDL generic instantiations is used to encode 
parameter mode information for each formal parameter. The identifiers in, out, and in out 
are used to indicate the mode of a parameter. The identifier t is used as a placeholder, 
followed by the actual type of the formal parameter. This method maintains consistency of 
translation between Ada types and PSDL types, and allows for the proper translation of 
nested type definitions. The translation of an Ada generic formal procedure parameter is 
shown in Figure 13. 


Ada: 

\ 

with procedure proc 1 (p 1 : integer; 

p2: out float; 

p3 : in out boolean) is <>; 

PSDL: 


procl : procedure [ 

parml : in [ t: integer ], 
parm2 : out [ t: float], 
parm3 : in_out [ t: boolean ] ] 


Figure 13. Translation of Generic Formal Procedure Parameter 
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IV. THE ADA TO PSDL TRANSLATOR 


A. BACKGROUND 

Previous work in this area was completed by Jennie Sealander in 1992 [Ref 10] A 
variety of deficiencies in that work lead to requirements for follow-on work These 
deficiencies include 

• No support for the Ada 95 language 

• Failure to handle nested packages. 

■ Restriction to uppercase only or lowercase only for Ada keywords. 

• Does not handle exceptions for PSDL operators. 

• Improper handling of generic value, generic array, and generic subprogram 
parameters. 

• No support for in out parameters 

In order to provide an updated translator, the decision was made to build a 
completely new version rather than attempt to upgrade the existing version. Starting from 
scratch allowed the selection of a new tool for constructing the translator. While tools such 
as Kodiak, developed at the University of Minnesota, and Eli, developed at the University 
of Colorado, are available as compiler/translator generators, the Synthesizer Generator 
(SynGen) was ultimately selected for implementation of the translator. All of these tools 
are based upon the concept of attribute grammars as described by Knuth [Ref 11] SynGen 
was selected because it has the capability to generate a syntax-directed editor from the 
specified attribute grammar Additionally, SynGen was used to construct the PSDL editor 
utilized by CAPS, so a common interface is achieved with the Ada 95 editor generated as 
a part of the translator tool. 

B. THE SYNTHESIZER GENERATOR 

The Synthesizer Generator is a tool, which through the use of attribute grammars 
can create a variety of syntax directed editors, translators, and other language based tools. 
The generated tools are designed to be run within the X graphical environment, but may be 



created to operate in batch modes as well. The Synthesizer Specification Language (SSL) 
is utilized to create editor specifications. SynGen creates C language source files utilizing 
a user’s SSL files, and other tools such as YACC. These source files are compiled to create 
a stand-alone final product. SSL constructs are used to specify several aspects of user 
specified editors including: 

• The abstract syntax of a language. 

• Context-sensitive relationships. 

• Display format. 

• Concrete input syntax. 

• Transformation rules for restructuring objects. [Ref. 12] 

Each of these may be specified in separate files, with an abstract syntax the only 
requirement for executing SynGen. This allows tools to be constructed in an incremental 
manner, greatly easing the debugging process. 

C. THE TRANSLATOR 

The translator constructed utilizing SynGen can be operated in two modes, 
interactive and batch. In the interactive mode, the translator is a syntax directed Ada 95 
package specification editor which simultaneously produces PSDL translations In the 
batch mode, an existing Ada package specification is specified as input to the translator 
which produces two output files, a PSDL translation, and an annotated Ada file which has 
comments interspersed with the Ada source code, these comments indicate the quality of 
the translation which has taken place. By examining the annotated Ada source file, users 
can get an idea as to how complete the translation was. Error messages inserted into the Ada 
source code, in the form of Ada comment statements, indicate which lines of source 
presented problems for the translator. 

1. SSL Source Files 


The translator is constructed from eight SSL source files. Two files specify the 
abstract syntax of for Ada 95 package specifications, and PSDL. The source code listings 



for the abstract syntax files are contained in Appendix A One file specifies the concrete 
syntax for Ada 95 package specifications which allows the translator to accept existing Ada 
95 text files as input. Appendix D contains the concrete syntax rules for the translator One 
file contains SSL functions which are used to compute attributes for Ada 95 productions 
which translate to PSDL. These functions are contained in Appendix C. Three files are 
required to specify the unparsing rules for Ada 95 and PSDL. Unparsing rules specify the 
format which is to be used for display of the underlying syntax trees. The source code for 
all unparsing rules may be found in Appendix B. The final file contains SSL transformation 
declarations which specify the manner in which users of the interactive translator may 
manipulate the syntax tree for Ada specifications. Appendix E contains the source listing 
for the transformation declarations used by the translator. 

2. Accomplishing the Translation 

An Ada package specification is translated into PSDL by taking advantage of the 
way in which SSL treats abstract syntax definitions and user-defined attribute types. In SSL 
these two concepts are merged so that attributes are in turn root nodes of an abstract syntax 
tree In order to perform a translation, both the abstract syntax for Ada 95 and the abstract 
syntax for PSDL were specified. The Ada production pkgspec contains a single attribute 
psdl trans which serves as the root of a PSDL abstract syntax tree. The attribute, 
psdl trans, is computed based upon the structure of the Ada abstract syntax tree rooted at 
pkg spec by utilizing a variety of attribute computation functions which extract 
information from the Ada tree and convert it to nodes in the PSDL tree By displaying the 
PSDL abstract syntax tree rooted at psdl trans, a translation of the Ada pkg spec is 
obtained 

3. Assumptions for Proper Translations 

There are several restrictions which apply to the use of the translator. These fall into 
two categories: 

• Implementation imposed limitations 
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• Limitations imposed by Ada to PSDL mapping restrictions. 

The translator expects input files to contain only Ada package specifications Ada 
package bodies are not recognized by the translator, and will result in no translation being 
accomplished Components which place both the package specification and the package 
body in a single file must be split into two separate files, one containing the specification 
and the other the package body The specification file is the file which the translator will 
process 

The input file may contain zero or more Ada package specifications, but it is 
recommended that each input file contain only a single package specification in order to 
produce only a single PSDL component as output. Multiple package specifications in a 
single file will result in multiple PSDL component specifications in the output file. 

Ada functions are not translated into PSDL because the CAPS prototype 
construction tools provide only for interfacing to Ada procedures. In order to utilize the vast 
amount of existing Ada functions which have been written, packages which contain 
functions should be preprocessed to add procedure wrappers for each function interface. 
This is done by adding an additional procedure within the package specification which 
contains the same parameters as the function, and an additional out parameter used to pass 
out the return value In the package body, a wrapper procedure is inserted which calls the 
function and passes out the functions return value in its extra out parameter. Appendix F 
discusses this process and contains examples of how this is done for both generic and non¬ 
generic functions within a package. 

PSDL does not allow the nested definition of type components. In many cases the 
outermost package specification in a file may contain one or more nested package 
specifications. If these nested package specifications translate to PSDL type components, 
then the outermost package specification is stripped off and each nested package translated 
as a unique PSDL type component. This makes more of the software components available 
for reuse If the outer package was not stripped away, the nested packages would not be 
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translated at all, and would be unavailable for reuse. Figure 14 show and Ada package 
package OuterPkg is 

procedure OuterProcl( parml : in integer), 
procedure OuterProc2(parm2 : out float), 
package InnerPkg is 

procedure InnerProcl(parml : character); 
procedure InnerProc2(parm2 : in out integer), 
end Inner Pkg, 
end Outer Pkg, 

Figure 14. Package with Nested Package 


specification containing a nested package A strict translation of the this package to PSDL 
is shown in Figure 15. Notice that no translation of Inner Pkg occurs. Inner Pkg would 

type Outer_Pkg 
specification 

operator OuterProc 1 
specification 
input 

parml : integer 
end 

operator OuterProc2 
specification 
output 

parm2 : float 
end 

end 

implementation ada Outer_Pkg 
end 

Figure 15. Strict Translation for Nested Packages 
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translate into a PSDL type component, however, no translation is performed because nested 
types are not allowed in PSDL. By allowing the outermost package in a specification to be 
stripped away, the translation of Figure 16 is obtained This form of translation makes many 


operator OuterProcl 
specification 
input 

parml : integer 
end 

implementation ada OuterProcl 
end 

operator OuterProc2 
specification 
output 

pamt2 : float 
end 

implementation ada OuterProc2 
end 

type Inner_Pkg 
specification 

operator InnerProc 1 
specification 
input 

parm 1 : character 
end 

operator InnerProc2 
specification 
input 

parm2 : integer 
output 

parm2 : integer 
end 
end 

implementation ada Inner Pkg 
end 

Figure 16. Translation with Outer Package Stripped Away 
more packages available within the software base. It is an attempt to allow access to 
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software in cases where many unrelated packages are bundled together to form a single 
package simply for containership. 







V. PSDL TYPE COMPONENT RETRIEVAL 


A. BACKGROUND 

Design and implementation of tools for retrieving PSDL operator components was 
performed by McDowell [Ref. 9] and Dolgoff [Ref. 5]. In particular Dolgoff’s work yields 
a tool which utilizes user interactions to retrieve “best match” operator components from 
the CAPS software base for integration into prototype systems. It is desirable to extend this 
tool to allow the retrieval of PSDL type components as well. This chapter discusses 
considerations for the retrieval of PSDL type components from the software base, while 
leaving actual implementation of such a tool for future research. 

B. PSDL TYPE COMPONENTS 

PSDL type components are similar to the “objects” of object-oriented programming 
languages. PSDL types represent a data object and the associated operators to manipulate 
that object, within CAPS, they correspond to Ada abstract data types (ADT). Figure 17 
shows a partial specification of a generic PSDL set data type. PSDL type components may 
be either generic, or non-generic, may contain internal type declarations, and may contain 
zero or more operators which operate on that type. 

In order to retrieve a type component from the software base a user must formulate 
a PSDL query which specifies the user’s type component. This will be referred to as the 
query type component, or simply query component (qc), throughout the remainder of the 
chapter. Given a query component, the software base is searched in order to find a match 
for the specified query component. Software base components (sbc) are those PSDL type 
components residing in the software base which are the objects of search process. Any 





software base components which pass through all filtering operations become possible 
candidates for integration into the user’s prototype system. 


type Set 
specification 
generic 

Element: PRIVATE_T YPE 

operator Insert 
specification 
input 

NewElement: Element 
output 

NewSet: Set 
end 

operator Empty 
specification 
output 

EmptySet: Set 
end 

operator In 
specification 
input 

Item : Element, 

SI . Set 
output 

Result: boolean 
end 

end 

Figure 17. PSDL Specification of a Set Data Type 


C. MATCHING TYPE COMPONENTS 

The goal of the matching process is to locate, for the user, as many type components 
as possible which may suit the requirements of the users prototype. In presenting these 
“matching” types to the user, it is desirable to narrow the range of choices the user must 
evaluate to those which have the highest likelihood of suiting the user’s needs. In order to 
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prevent the user from browsing through the entire dictionary of type components within the 
CAPS software base, several filters are applied, utilizing the user’s query component, to 
make the list of choices more manageable for the user. These filters are constructed based 
upon information specified by the users query component. An initial query to the software 
base utilizing these initial filters will return a set of type components which will be 
subjected to further processing. The results of this second pass over the components are 
then displayed to the user, who can browse the list of type components in search of the most 
suitable for the current prototype system. Once the user has selected a type component for 
integration into a CAPS prototype, the retrieved component must be made available to the 
user in a form which will integrate directly into the prototype. In the case of generic type 
components, it is necessary to first instantiate the component. Following instantiation, 
integration proceeds similarly for both generic and non-generic type components. A 
wrapper package must be constructed which suitably renames and instantiates the target 
component into a component which will integrate directly into the users prototype system. 

D. DEFINITIONS 

The following definitions are taken from Dolgoff’s thesis and are utilized here for 
consistency [Ref. 5]. 

1. PSDL Specification 

The PSDL specification for a component denoted by PS. 

2. Software Base Component 

The software base component is denoted by sbc. The PSDL specification of a 
software base component is denoted by PS(sbc). 

3. Query Component 

A query component refers to the component that the CAPS user is in the process of 
finding a match for and is denoted by qc. The PSDL specification for a query component 
is denoted by PS(qc). 
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4. Component Signature 

The component signature refers to the types of the component parameters, with 
separate signatures representing the input and output parameters of software base 
components. A signature encodes information that describes each instance of parameter 
types utilized by the component. Figure 18 shows the signature for a PSDL operator 



Figure 18. Example Operator Component Signatures 

component. Ordering of types within a signature is insignificant. For example, the input 
signature (Boolean, Integer, Range, Integer) is considered a match for the input signature 
in Figure 18. The types will be mapped by the wrapper package created to integrate a 
software base component into the users prototype. For PSDL type components, the 
signatures represent the aggregate of all parameter types utilized by the types operators. 
Figure 19 shows the signatures for an example type component. 

a. Parameter Types 

In the simplest case of parameter matching, an input PS(qc) parameter 
exactly matches an input PS(sbc) parameter. However, the type hierarchy employed by 
Ada allows types to be matched in some cases where it would appear that no match exists. 
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The types Private, Discrete, Integer, Range, Natural, Positive, Enumeration, Character, 
Boolean, Access, Record, Array, String, Digits, Float, Delta, and Fixed are predefined and 
form the hierarchy depicted in Figure 20. Utilizing these relationships, it can be seen that 


type ExampleType 
specification 

operator TypeOp 1 
specification 
input 

Parml : Boolean, 

Parm2: Integer 
output 

Parm3: Integer 
end 

operator TypeOp2 
specification 
input 

Parm2 : Integer 
end 
end 

Input Signature: 

(Boolean, Integer, Integer) 

Output Signature: 

(Integer) 

Figure 19. Example Type Component Signatures 


an input PS(qc) parameter of type Positive can be matched to an input PS(sbc) parameter 
of type Integer. This is a one way relationship. Input parameter types in a PS(sbc) must 
accept the entire range of values expressed by the input parameter types of a PS(qc). 
Conversely, the output parameter types of a PS(qc) must accept all values generated by the 
output parameter types of a PS(sbc). 
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b. Input Parameters 

Each input parameter has an identifier name, and a type. The identifier name 
is represented by p. The expression input_type(p,sbc) refers to the parameter type for a 
specified input parameter p in a PS(sbc). Similarly, the expression input_type(p,qc) refers 



to the parameter type for a specified input parameter p in a PS(qc). The expression In(sbc) 
refers to the entire set of input parameter identifier names in a PS(sbc), and In(qc) refers 
to the entire set of input parameter identifier names in a PS(qc). 

c. Output Parameters 

Output parameter definitions mirror those of input parameters. The 
expression output_type(p,sbc) refers to the parameter type for a specified output 
parameter p in a PS(sbc). Similarly, the expression output_type(p,qc) refers to the 
parameter type for a specified output parameter p in a PS(qc). The expression Out(sbc) 
refers to the entire set of output parameter identifier names in a PS(sbc), and Out(qc) refers 
to the entire set of output parameter identifier names in a PS(qc). 
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d. States 


The expression ST(sbc) is a boolean function that evaluates whether the 
software base component is a state machine or not. ST(qc) does the same for a query 
component. 

e. Abstract Data Types 

Type components may contain type declarations for abstract data types 
utilized by the type component. This is not the case for operator components. ADT(sbc) 
denotes the set of all abstract data types in s software base type component, while ADT(qc) 
represents the set of all abstract data types in a query type component. OPS(sbc) denotes 
the set of all operators in a software base type component, while OPS(qc) represents the 
set of all operators in a query type component. Tot_In(sbc) denotes the entire set of input 
parameter identifier names over all operators of a software base type component, while 
Tot_In(qc) denotes the entire set of input parameter identifier names over all operators of 
a query type component. Similarly Tot_Out(sbc) and Tot_Out(qc) are defined for output 
operators. 

E. SYNTACTIC MATCHING RULES FOR TYPE COMPONENTS 

The following rules for component matching are again taken from McDowell [Ref. 
9] and Dolgoff [Ref. 5], NUM(X) is used to represent the cardinality of the set X. 

1. Rules for Operator Components 

Initial filtering for operator components is based upon comparing numbers of 
parameters between two operators, these are listed below: 

• NUM(In(sbc)) = NUM(In(qc)) 

• NUM(Out(sbc))>NUM(Out(qc)) 

• ST(sbc) = ST(qc) 

The number of software base component input parameters must be the same as those of the 
query component. The number of software base component output parameters must be 
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greater than or equal to those of the query component. Both components must either be 
state machines, or both components must not be state machines. 

Extended filtering rules for operator components were specified by Dolgoff and 
follow below [Ref. 5]: 

a. Property 1 

There must exist a bijective function f from the set In(qc) to the set In(sbc) 
for which the following holds: 

(Vp e In(qc)) (input_type(p, qc) c input_type(f(p), sbc)) 
where the subset operator denotes “is a subtype of’. 

b. Property 2 

There must exist a one-to-one function f from the set Out(qc) to the set 
Out(sbc) for which the following holds: 

(Vp e Out(qc)) (output_type(f(p), sbc) c= output_type(p, qc)) 

These two rules enforce signature matching for operator components. 

2. Rules for Type Components 

PSDL type components contain one or more abstract data type declarations and zero 
or more operator. Initial filtering of software base type components is based upon aggregate 
signatures composed from the type’s operator components. The basic rules for types are 
[Ref. 9]: 

• NUM(ADT(sbc)) > NUM(ADT(qc)) 

• NUM(Tot_In(sbc)) > NUM(Tot_In(qc)) 

• NUM(Tot_Out(sbc)) > NUM(Tot_Out(qc)) 

• NUM(OPS(sbc))>NUM(OPS(qc)) 

The number of ADTs, operators, total operator inputs and total operator outputs within the 
software base type component must all be greater than or equal to those of the query type 
component. 
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Extended filtering for type components as specified by Dolgoff, consists of a single 
rule which states that there must exist a one-to-one function f from the set OPS(qc) to the 
set OPS(sbc) such that VOP ()C e OPS(qc) properties one and two above, for operators, 
hold true [Ref. 5]. In addition to the rules specified by Dolgoff, properties one and two for 
operators must be satisfied by type components as well, in order to match the aggregate 
signatures for component inputs and outputs. 

F. SEARCHING FOR TYPE COMPONENTS 

The process for matching type components is shown in Figure 21. This is a slightly 



modified version of the process presented by Dolgoff [Ref. 5], The Array Check step has 
been removed, as it is performed within the Operator Mapping sub-process. All filtering 
prior to Operator Mapping is accomplished by database queries to the CAPS software base, 
as described by Dolgoff. Operator Mapping and the Instantiation Check are discussed in 
the following sections. 
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1. Operator Mapping 

Operator Mapping is the process that determines whether a one-to-one function can 
be found that maps OPS(qc) to OPS(sbc). In order to do this, each operator component, 
within the query type component, is formulated into a query operator component, and used 
as input to existing operator matching functions. Each of these query operator components 
is matched against a set derived from OPS(sbc) in search of a match. Should a match be 
found for an operator component, it becomes part of the Operator Mapping function, and 
the matching software base operator component is added to a set Used_OPS(sbc). 
Used_OPS(sbc) is initialized to the empty set The set of available software base operator 
components input to the process is, OPS(sbc) - Used_OPS(sbc). This assures that a one- 
to-one mapping will be generated should the process succeed. If no match can be found for 
an operator component, backtracking is utilized in order to achieve an exhaustive search 
for a suitable one-to-one mapping. If no one-to-one mapping can be generated, then the 
entire Operator Mapping step fails for that particular software base type component, and it 
is eliminated from consideration as a match for PS(sbc). The Operator Mapping process is 
shown in Figure 22 and is derived from Dolgoff’s filter process for operators. The Is 







Generic step is a modified version of the same step used by Dolgoff. Is Generic branches 
in the following manner: 

• Yes - The Yes branch can be taken for either of the following two reasons. First, the 
software base operator component is generic. Second, if the software base type 
component which contains the software base operator component is generic, and one 
ore more of the operator’s input or output parameter types matches one of the type 
component’s declared generic parameters (see example Figure 23). 

• No -The No branch is taken if the operator component is non-generic, and none of its 
input or output parameters match any generic parameters which belong to the type 
component in which it is contained. 

The Array Check step performed across the set of OPS(qc), throughout the process of 
Operator Mapping , removes the need to perform Array Check separately in the type 
matching process. 

2. Type Instantiation Check 

At the Instantiation Check stage, generic type components are evaluated to 
determine if a proper set of actual Ada type parameters can be found to properly instantiate 
the type component to match the query type component. If no set of Ada types can be found 
to perform the instantiation, the software base type component is removed from 
consideration as a possible match for the query component For non-generic software base 
type components, this stage is simply a pass through filter, and the previous stages have 
demonstrated that the component is a syntactic match for the query component For generic 
software base type components, the Operator Mapping stage has shown that at the operator 
level, generic instantiations exist which match all operators contained in the query type 
component. A problem exists in the fact that the generic parameters are defined at the type 
level rather than at the operator in generic type components. Figure 23 shows an example 
of a generic type component. Potential problems lie in the manner in which the Operator 
Mapping phase assigns to actual Ada types to the parameter Discrete 1. Figure 24 shows an 
example query type component which can be matched by the type component in Figure 23. 
In this example, the Operator Mapping process would assign Discrete 1 to Ada type 
Positive when instantiating Opl, and it would assign Discrete 1 to Ada type Integer when 
instantiating Op2. The problem is to find a single type to assign to Discrete 1 which will 
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create suitable instantiations for both Opl and Op2. The solution is to utilize the subtype 


type GenericExample 
specification 
generic 

Discrete 1 : Discrete_Type 

operator Opl 
specification 
input 

OplParml : Discrete 1 
end 

operator Op2 
specification 
input 

Op2Parml: Discrete 1 
output 

Op2Parm2: Float 
end 

end 


Figure 23. Example Generic Type Specification 

hierarchies specified by Dolgoff [Ref. 5]. In cases where two or more operator components 
utilize the same generic parameter in declaring input or output parameters, the concept of 
least upper bound is used to determine a proper instantiation of the type component. 
Considering the Ada types selected for instantiation of operators within the software base 
type component as a set, a proper instantiation is possible only if the least upper bound of 
the set is a specific Ada type, as opposed to the types which may only appear in generic 
formal parameter declarations (shown in Figure 11). In attempting to match the query 
component in Figure 24 to the software base component of Figure 23, the set of possibilities 
for the Discrete 1 parameter is found to be [Integer, Positive). Referring to Figure 20, the 
Ada type Integer is found to be the least upper bound. Integer is a specific Ada type, and is 
therefore selected as the appropriate type with which to instantiate the software base 
component. In Figure 25, an example of an unsuccessful instantiation is shown. The set of 
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possibilities for Discrete 1 in this case is {Positive, String), and the least upper bound of this 
set is the Ada type Private. Private is not a specific Ada type, and the conclusion is that 
GenericExample can not be instantiated in such a way as to match QueryExample2. There 
is no single Ada type with which GenericExample can be instantiated which contains both 
a String and an Integer. GenericExample is then removed from consideration as a matching 
type component. 



Figure 24. Example Query Type Component (Successful Match) 







type QueryExample2 
specification 

operator Op 1 
specification 
input 

OplParml : Positive 

end 

operator Op2 
specification 
input 

Op2Parml : String 
output 

Op2Parm2: Float 

end 


Figure 25. Example Query Type Component (Unsuccessful Match) 
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VI. CONCLUSIONS AND FUTURE RESEARCH 


A. CONCLUSIONS 

The primary goal of this thesis was to produce a tool with the capability to 
automatically produce a PSDL specification when given an Ada package specification as 
input. This translation tool was produced utilizing the Synthesizer Generator, and has 
demonstrated its effectiveness by successfully translating several complex components 
from the Common Ada Missile Packages library Additional accomplishments include the 
extension of PSDL constructs to allow the use of Ada procedures and functions as generic 
formal parameters, and extended considerations for the retrieval of PSDL type components 
from the CAPS software base. The following sections discuss areas in which further work 
may be accomplished to build upon the work of this thesis 

B. POPULATE THE CAPS SOFTWARE BASE 

The completion of the translation tool presented in this thesis provides the 
opportunity to populate the CAPS software base by bringing in components from a variety 
of DOD Ada software libraries These libraries include, but are not limited to, the CAMP, 
RAPID, ASSET, and CRSS libraries. Population of the software base will greatly enhance 
the ability of CAPS users to build significant, useful, prototype systems 

C. EXTEND THE CAPABILITIES OF CURRENT COMPONENT 

RETRIEVAL TOOLS 

The current retrieval tool utilized by CAPS is capable of retrieving PSDL operator 
components only Two major restrictions were imposed on these retrieval operations due 
to Ada to PSDL mapping limitations which existed at the time the retrieval tool was 
created The first restriction prevented the use of in out parameters as procedure arguments. 
The second restriction prevented the use of functions and procedures as generic formal 
parameters. Updated translation tools and further review of PSDL have removed these two 
restrictions First, in out parameters are now allowed as formal arguments within 
procedures, and second, mapping schemes have been created to allow functions and 
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procedures to be used as generic formal parameters. DolgofTs retrieval tool needs updating 
to handle these two new cases. Additionally, DolgofTs tool was created to handle Ada 83 
packages, and with the introduction of Ada 95, further research will be required to 
determine how derived types, and generic derived types can be made to fit into Dolgoff s 
type hierarchy. 

D. IMPLEMENT PSDL TYPE COMPONENT RETRIEVAL 

Scott DolgofTs work created a tool which is used to retrieve PSDL operator 
components from the CAPS Software Base. This thesis extends the discussion on methods 
for the retrieval of PSDL type components from the software base These methods require 
some further refinement followed by an actual implementation and integration with the 
operator retrieval tool to provide a complete PSDL component retrieval suite 
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APPENDIX A. SSL SOURCE CODE: ABSTRACT SYNTAX 


The source code below comprises two files which specify the abstract syntax for 


Ada 95 package specifications and for PSDL. 

/* F ile: abstract. ada9x. ssl 

/♦Date: 3 March, 1995 

/* Author: Chris Eagle 

/* System: Sun SPARCstation 

/* Description: This file contains the abstract grammar for that 

/* portion of the Ada9x language which is required for 

/* package specifications. It was derived from the YACC 
/* grammar noted below. 


/**♦♦*** A YACC grammar for Ada 9X ********************** 
/* Copyright (C) Intermetrics, Inc. 1994 Cambridge, MA USA 
/* Copying permitted if accompanied by this statement. 

/* Derivative works are permitted if accompanied by this statement. 

/* This grammar is thought to be correct as of May 1, 1994 
/* but as usual there is *no warranty* to that effect. 


/* Lexemes for concrete syntax. This specification accounts for 
/* Ada's type insensitivity. 


QUOTEDJSTRING: <\”([ A V’]|”VV”)*\” >; 
CHAR_LIT : < ‘(IO>])’ >. 


TIC 

DOT_DOT 

BOX 

LT_EQ 

LT_LT 

EXPON 

NE 

GE 

GT_GT 

IS_ASSIGNED 

RIGHT_SHAFT 

ABORT 

ABS 

ABSTRACT 

ACCEPT 

ACCESS 

ALIASED 



< [aA][bB][oO)[rR][tT] >; 
:<[aA][bB][sS]>. 

:< [aA][bB][sS][tT][rR][aA][cC][tT] >; 

< [aA][cC][cC][eE] [pP][tT] >; 

< [aA][cC] [cC][eE] [sS] [sS] >; 

< [aA] [1L] [il][aA] [sS][eE][dD] >; 
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ALL 

AND 

ARRAY 

AT 

BEGIN 

BoDY 

CASE 

CONSTANT 

DECLARE 

DELAY 

DELTA 

DIGITS 

DO 

ELSE 

ELSIF 

END 

ENTRY 

EXCEPTION 

EXECUTION 

EXIT 

FOR 

FUNCTION 

GENERIC 

GOTO 

HRS 

IF 

IN 

IS 

LIMITED 

LOOP 

MAXIMUM 

MIN 

MOD 

MS 

NEW 

NOT 

Null 

OF 

OR 

OTHERS 

OUT 

PACKAGE 

PrAGMA 

PRIVATE 

PROCEDURE 

PROTECTED 

RAISE 

RaNGE 

RECORD 

REM 

ReNAMES 


:<[aA][lL][lL]>; 

:< [aA][nN][dD] >; 

:<[aA][rR][rR][aAJ[yY]>; 

< [aA][tT] >; 

:<[bB][eE][gG][iI][nN]>. 

< [bB][oO][dD][yY] >; 

: < [cC][aA][sS][eE] >. 

: < [cC][oO][nN][sS][tT][aA][nN][tT] >; 

< [dD][eE][cC][lL][aA][rR][eE] >; 

< [dD][eE][lL][aA][y Y] >; 

:<[dD][eE][lL][tT][aA]>; 

:<[dD|[iI][gG][iI][.T][sS]>; 

:<[dD][oO]>; 

:< [eE][lL][sS][eE] >, 

:<[eE][lL][sS][iI][fF]>; 

:< [eE][nN][dD]>; 

< [eE][nN][tT][rR][yY] >; 

:< [eE][xX][cC][eE][pP] [tT][iI][oO][nN] >; 

:< <PSDL_STATE> [eE][xX][eE][cC][uU][lT][iI][oO][nN] 
:< [eE][xX][iI][tT] >; 

:< [fF][oO][rR] >; 

:< [fF][uU][nN][cC][tT][il][oO][nN] >, 
:<[ g G][eE][nN][eE][rR][iI][cC]>; 

:<[ g G][oO][tT][oO]>; 

: < <PSDL_STATE> [hH][oO][uU][rR][sS] <INITIAL> >; 
:<[il][ff]>, 

:< [iI][nN] >; 

:< [iI][sS] >; 

:<[IL][.I][mM][iI][tT][eE][dD]>, 

:<[lL][oO][oO][pP]>, 

:< <PSDL_STATE> [raM][aA][xX][iI][raM][uU][mM] >; 
:< [mM][iI][nN] >; 

:< [mM][oO][dD] >; 

: < <PSDL_STATE> [mM][sS] <INITIAL> >; 

: < [nN][eE][wW] >; 

< [nN][ 0 O][tT] >; 

: < [nN][uU][!L][lL] >. 

:<[oO][fF]>; 

:< [oO][rR] >; 

< [oO] [tT][hH] [eE] [rR] [sS] >; 

:< [oO][uU][tT] >. 

< [pP][aA][cC][kK][aA][gG][eE] >; 

< [pP][rR][aA][gG][mM][aA] >; 
:<[pP][rR][iI][vV][aA][tT][eE]>; 

< [ P P][rR][oO][cC][eE][dD][uU][rR][eE] >; 

< [ P P][rR][oO][tT][eE|[cC][tT][eE][dD] >; 

< [rR] [aA] [il][sS][eE] > . 

<[rR][aA][nN][gG][eE]>; 

< [rR] [eE][cC] [oO][rR] [dD] >. 

:< [rR][eE][mM] >. 

: < [rR][eE][nN][aA][mM][eE][sS] >; 





REQUEUE 

RETURN 

REVERSE 

SEC 

SELECT 

SEPARATE 

SUBTYPE 

TAGGED 

TASK 

TERMINATE 

THEN 

TIME 

TYPE 

UNTIL 

USE 

USEC 

WHEN 

WHILE 

WHITESPACE 

WITH 

XOR 


< [rR][eE][qQ][uU][eE][uU][eE] >, 

:< [ r R][eE][tT][uU][rR][nN] >; 

< [rRJ [eE] [vV][eE] [rR] [sS] [eE] >; 

:< <PSDL_STATE> [sS][eE][cC] <INITIAL> >; 

< [sS][eE][IL][eE][cC][tT] >; 

< [sS][eE][pP][aA][rR][aA][tT][eE] >; 

:< [sS][uU][bB][tT][yY][pP][eE] >; 

:<[ t T][aA][gG][gG][eE][dD]>; 

:<[tT][aA][sS][kK]>; 

< [tT] [eE] [rR] [raM] fil] [nN] [aA] [tT][eE] >; 

:< [tT](hH][eE][nN] >; 

:< <PSDL_STATE> [tT][iI][mM][eE] >; 

:< [lT][yY][pP][eE] >, 

< [uU][nN][tT][iI][lL] >; 

:< [uU][sS][eE] >, 

:< <PSDL_STATE> [mM][iI][cC][rR][oO][sS][eE][cC] <INITIAL> > 
:< [wW] [hH] [eE] [nN] >; 

.< [wW] [hH] [il] [lL][eE] >; 

:<[\\t\n] >; 

:<[wW][iI][tT][hH]>; 

:<[ X X)[oO][rR]>; 


PSDL_COMMENT : <“~PSDL “ <PSDL_STATE> >; 
ADA_COMMENT: 

INTEGER <[0-9](_?[0'9])* >, 

REAL_CS : <[0-9](_'?[0-9])*(\ [0-9](_?[0-9])*) >, 

ID . <[a-2A-Z](_ 7 [a-zA-Z0-9])* >; 

/* precedence declarations */ 

leftY; 

left AND, OR, XOR; 

left NE, LT_LT, LT_EQ, GT_GT, GE; 
left ‘+’, 

left /'.MOD, REM, 
left EXPON. 
left ■ 


root compilation; 


comp unit, pkg decj, pkg_spec, private_part, decl_item_s, decl item, decl 
{inh INT nesting_level;} , 

compilation : CompilationNilO 

| Compilation(pragma_s comp unit list) 


al list comp_unit_list, 


options 




t Jist: CUListNilO 

| CUList(comp_unit compunit 
compunit.nestinglevel = 0; 


comp_unit: CompUnit(context_spec_opt private opt pkgdecl pragmajs) { 
pkg_decl.nesting_level = $$.nesting_level; 


optional private_opt; 
pnvate_opt : PrivateOptNull() 

| PrivateOptPromptO 

| PrivateOpt() 


optional contextspecopt; 
eontext_spec_opt: ContextSpecNull() 

| ContextSpecPrompt() 

| ContextSpec(context_spec) 


context_spec : EmptyContextSpec() 

| ContextWithUse(context_spec_opt with_clause use_clause_opt) 
| ContextPragma(context_spec pragma) 


with_clause : WithClause(c name list) 


optional list use_clause_opt; 
use clause opt: UseClauseOptNil() 

| UseClause(use_clause use_clause_opt) 


ise clause: EmptyUseC() 

| Use(name_s) 

| UseType(name s) 


list name_s; 
name s NameNil() 

| nameList(name name s) 


| SimpleName(identifier) 

| IndexComp(name value s) 

| SelectedComp(selected comp) 
| Attnbute(name anribute id) 
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| OperatorSymbol(QUOTEDSTRING) 


identifier: IdNuII() 

| Ident(ID) 


list value s: 
value_s : ValueNilO 

| ValueList(value value_s) 


value : EmptyValue() 

| ValueExpr(expression) 

| ValueCompAssoc(comp_assoc) 

| ValueDiscWithRange(discretewithrange) 


selected_comp : EmptySelComp() 

| DotId(name identifier) 

| DotUsedChar(name CHAR_LIT) 

| DotString(name QUOTED_STRING) 
| DotAll(name) 


attributejd : EmptyAttribId() 

| Attribld(identifier) 
| AttribDigits() 

| AttribDeltaO 
| AttribAccessQ 


expression : EmptyExpression() 

| Relation(relation) 

| And, Or, Xor, AndThen, OrElse(expression relation) 


relation : EmptyRelation() 

| SimpleExpr(simpie_expression) 

| Equal, NotEqual, LessThan, LessThanEq, 

GreaterThan, GreaterThanEq(simple_expression simple expression) 
| RangeMember(simple_expression membership range) 

| NameMember(simple_expression membership name) 


membership: EmptyMembr() 


simple_expression : EmptySimple() 





I Term(unary term) 

| Addition, Subtraction, Concat(simple_expression term) 


optional unary; 
unary : Unary Null () 

| Unary Prompt() 

| Plus() 

| Minus() 


term : Empty Term() 

| Factor(factor) 

| Mult, Divide, Mod, Rem(teim factor) 


factor: EmptyFactor() 

| Primary(primary) 

| NotPrimary(primary) 

| AbsPrimary(primary) 

| Expon(primary primary) 


primary : EmptyPrimaiyO 

| Literal(literal) 

| PrimaryName(name) 

| Allocator(allocator) 

| Qualified(qualifted) 

| Parens(expression) 

| PnmaryAgg(aggregate) 


list compoundname; 
compound_name : EmptyCompound() 

| DotCompound(identifier compound_name) 


list c_name_list; 

c_name_list: CompoundNameNil() 

| CompoundList(compound_name c_name_list) 


numeric lit : IntLit(integer) 

| RealLit(REAL_CS) 


literal ; EmptvLiteralQ 


| NumLit(numeric lit) 

| UsedChar(CHAR LIT) 
| NilLit() 



aggregate : EmptyAggregate() 

| AggCompAssoc(compassoc) 

| AggValues2(value_s_2) 

| AggExprValue(expression value s) 
| AggExprWithNull(expression) 

| AggExpNullRecQ 


value_s_2: ValueS2Pair(value value) 

| ValueS2List(value_s_2 value) 


comp assoc : CompAssoc(choice_s expression) 


list choice_s; 
choice s : ChoiceNil() 

| ChoiceList(choice choice s) 


choice ; EmptyChoice() 

| ChoiceExpr(expression) 

| ChoiceRange(discrete_with_range) 
| ChoiceOthersQ 


discretewithrange: DiscreteNameRange(name range constraint) 
| DiscreteWithRange(range) 


range_constraint: Range(range) 


range : EmptyRange() 

| SimpleRange(simple_expression simple_expression) 
| NameTicRange(name) 

| NameTicRangeExpCname expression) 


qualified : EmptyQual() 

| NameTicAgg(name aggregate) 

| NameTicExpr(name expression) 


allocator: newName(name) 

| NewQualified(qualified) 


pragma : EmptvPragma() 

| Pragmald(identifier) 
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| PragmaSimple(identifier pragmaargs) 


list pragma_arg_s; 
pragma_arg_s : PragmaArgNil() 

| PragmaSargList(pragma_arg pragma arg s) 


pragma_arg : EmptyPragmaArgO 

| PragmaExp(expression) 

| PragmaNameExp(identifier expression) 


optional list pragma_s; 
pragma_s : PragmasNil() 

| PragmasList(pragma pragma_s) 


pkg decl: EmptyPkgDecl() 

| PkgSpec(generic_hdr pkg_spec) { 
pkg_spec.nesting_level = $$.nesting_level; 

} 

| GenPkgInst(compound_name generic_inst) 


pkg_spec : Package(compound_name decl_item_s private_part) { 

decl_item_s.nesting_level = $$.nesting_level + 1 
private_part.nesting_level = $$.nesting_level; 


optional private_part; 
private_part : PrivatePartNull() 

| PrivatePartPromptO 
| Private(decl_item_s) { 

decl_item_s.nesting_level = $$.nesting_level + 1 


optional list decl_item_s; 
decl_item_s: DeclListNil() 

| DeclList(decl_item decl_item_s) { 
decl_item_s$2.nesting_level = $$.nesting_level; 
decl_item.nesting_level = $$.nesting_level; 


decljtem : EmptvDeclItem() 

| Decl(decl) { 

decl.nestmglevel = $$.nesting_level; 



| UseClauseDecl(useclause) 
| DeclRepSpec(repspec) 

| DeclPragma(pragma) 


rep_spec : EmptyRepSpec() 

I AttribDef(mark expression) 

| RecordTypeSpec(mark align_opt comp loc_s) 
| AddressSpec(mark expression) 


optional align_opt; 
alignopt : AlignOptNull() 

| AlignOptPrompt() 

| AlignOpt(expression) 


optional comp loc_s; 
comp loc_s: CompLocNull() 

| CompLocPrompt() 

| CompLocList(comp Joes mark expression range) 

mark : EmptyMark() 

| Mark(identifier marklist) 

optional tiedot; 
tiedot: TicDotNiI() 

I TicDotPHO 
| TicOpt(attributeJd) 

| DotOpt(identifier) 


optional list marklist; 
marklist: MarkListNil() 

I MarkList(ticdot maiklist) 


decl : EmptyDecl() 

| ObjDecl(def_id_s object qualil'ier opt object_subtype_def init_opt) 
| NumDecl(det'Jd_s expression) 

| TypeDecl(identifier discrim_part_opt type completion) 

I SubTypeDecl(identifier subtype ind) 

| SubProgDecl(subprog decl) 

| PkgDecl(pkg_decl) { 
pkg decl.nesting level = SS.nesting level 
> 

| TaskDecl(task_spec) 

| ProtDecl(prot_spec) 

| ExcDecl(del' id s) 




| RenameDecl(rename_decl) 
| Body StubDecl(body stub) 


list def_id_s; 
def_id_s DefIdNil() 

| DefldList(identifier def_id_s) 


optional object_qualifier_opt, 
object_qualifier_opt: ObjQualOptNullO 

| ObjQualOptPromptO 
| Aliased() 

| Constanl() 

| AliasedConstO 


objecl_subtype_def: EmptySubtypeDef() 

| Subtypelnd(subtypeind) 
| ArrayType(array type) 


optional init_opt, 
init opt : InitOplNull() 

| InitOptPromptO 
| ExprlnitOpt(expression) 


subtype_ind : EmptySubtlnd() 

| SubtypeIndConstraint(name constraint) 
| SubTypelndName(name) 


constraint : EmptyConstrainl() 

| RangeConstrainl(range constraint) 

| DecDigConstfaint(expression range_constr_opt) 


rangc_constr_opt: EmptyRangeConstrOpt() 

| RangeConstr(range_constrainl) 


array type : EmptyArrayTypc() 

| UnconstrArray(index_s component subtype def) 

| ConstrArray(iter_discrete_range_s component subtype def) 


component subtype del': CompSubtypeDef(aliased opt subtype ind) 


optional aliased_opt; 



aliasedopt: AliasedOptNuII() 

AliasedOptPrompt() 
| AliasedOptQ 


list indexs; 
indexs: IndexNilf) 

| IndexList(name index_s) 


list iter_discrete_range_s; 
iter_discrete_range_s: DiscreteRangeNil() 

| DiscreteRangeList(discrete_range iterdiscreteranges) 


discreterange : EmptyDiscRngO 

| DiscRangeName(name range_constr_opt) 
| DiscRangeRange(range) 

optional discrim_part_opt; 
discrim_part_opt : DiscrimPartNull() 

| DiscrimPartPrompt() 

| DiscrimPart(discrim_spec_s) 

I Box() 


list discrim spec s; 

discrim spec s : DiscrimSpecNil() 

| DiscrimSpecList(discrim_spec discrim_spec_s) 


discrim_spec : DiscrimSpecDef(def_id_s access opt mark init_opt) 


optional access opt; 
access opt : AccessOptNull() 

| AccessOptPromptO 
| AccessOptQ 


optional type_completion; 

type completion : TypeComplNull() 

| TypeComplPromptO 
| TypeDefCompl(type def) 


tvpe def: Empty’TypeDet'O 

| EnumTypeDet'(enum_id_s) 
| IntTvpeDet(integer_type) 

| RealTvpeDet'(real_type) 





| ArrayTypeDef(airay_type) 

| RecordType(tagged_opt limiled_opt recorddef) 
| AccessTypeDef(access_type) 

| DerivedTypeDef(derived_type) 

| PrivateTypeDef(private_type) 


derived type : EmptyDerivedType() 

| NewDerivedType(subtype_ind) 

| NewDerivedWithPrivate(subtype_ind) 

| NewDerivedWithRecord(subtype_ind record def) 

| AbsNewDerivedWithPrivate(subtypemd) 

| AbsNewDerivedWithRecord(subtype_ind record def) 


list enum_id_s; 
enumids : EnumldNilf) 

| EnumIdList(enum_id enum_id_s) 


enum_id 


Empty Enumld() 

| Id(identifier) 

| CharLit(CHAR_LIT) 


integer_type : EmptyIntType() 

| RangeSpec(range_spec) 
| ModExpr(expression) 


range_spec : RangeSpecConstr(range_constraint) 

record_def: EmptyRecordDef() 

| Record(pragma_s compjist) 
| NullRecordf) 


comp_list : EmptyCompListQ 

| CompListWithVariant(comp_decl_s variantjpart_opt) 
| CompListWithPragma(variant_part pragma_s) 

| NullWithPragma(pragma_s) 


compdecls: CompDeclNilO 

| CompDecl(comp decl) 

| CompDeclList(comp_decl_s pragma_s comp_decl) 


variant_part_opt : Empty VariantPart() 

| VariantPartOptPragma(pragma s) 
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VariantPartOpt(pragma_s variant_part pragma s) 


comp_decl : CompDeclDel's(del'_id_s component subtype def init opt) 

vanant_part : VanantPart(identifier pragma s variant s) 

list variant_s; 
variant_s VariantNil() 

| VariantList(variant variant s) 

variant : VariantChoice(choice_s pragma_s comp_list) 


optional tagged_opt; 
tagged opt: TaggedOplNullO 

| TaggedOplPrompt() 
|Tagged() 

| AbstractTagged() 


optional range_spec_opt; 
range_spec_opt : RangeSpecOptNull() 

| RangeSpecOptPrompt() 

| RangeSpecOpt(range_spec) 


real type : EmptyRealType() 

| F loatType(expression range_spec_opt) 
| FixedType(fixed_type) 


fixed_type : EmptyFixedType() 

| FixedDelta(expression range_spec) 

| FixedDeltaDigits(expression expression range_spec_opt) 


private type : PrivateType(tagged_opt ltmited opt) 


optional limited_opt, 
limited opt : LimitedOptNull() 

| LimitedOptPromptO 
| Limitedf) 


subprog_decl : EmptySubpDecl() 

SubprogSpec(generic hdr subprog spec psdl met opt) 




| GenericSubprogInst(subprog_spec generic inst psdl met opt) 
| AbstractSubprogSpec(subprog_spec psdlmetopt) 


optional psdl met opt; 
psdl_met_opt: MetNullQ 

| MetPrompt() 

| MetUsec, MetMs, MetSec, MetMin, MetHrs(integer) 


subprog_spec: EmptySubpSpec() 

| SubProgProc(compound_name formal_part_opt) 

\ SubProgFuncRetum(designator formal_part_opt name) 
] SubProgFunc(designator) 


designator: EmptyDesignator() 

| DesigCompound(compound_name) 
| DesigString(QUOTED_STRING) 


optional formal_part_opt; 
formal_part_opt : FormalPartOptNull() 

| FormalPartOptPrompt() 
| FonnalPart(param_s) 


list param_s; 
param_s : ParamNil() 

| ParamList(param param_s) 


param : Paramld(def_id_s mode mark initopt) 
| EmptyParam() 


optional mode; 
mode : ModeNull() 

| ModePromptO 
| InMode() 

| OutMode() 

| lnOutMode() 

| AccessModeQ 


K spec ; EmptyTaskSpec() 

| SimpleTask(identifiertask det) 

| TaskType(identifierdiscrim_part_opt task_def) 


optional task det'; 
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task_def: TaskDefNull() 

| TaskDefPrompt() 

| TaskDef(entry_decl_s rep_spec_s task_private_opt) 

optional task_private_opt; 
task_pnvate_opt: TaskPvtOptNull() 

| TaskPvtOptPrompt() 

| TaskPvtOpt(entry_decl_s rep_spec_s) 

entry _decl_s : EntryDeclPragma(pragmas) 

| EntryDeclPragmaList(entry_decl_s entry_decl pragma_s) 

entry decl: EmptyEntryDecl() 

| Entry Declld(identifier formal_part_opt) 

| EntryRange(identifier discrete range formal_part_opt) 


optional rep_spec_s; 
rep spec s: RepSpecNull() 

| RepSpec Prompt() 

| RepSpecList(rep_spec_s rep_spec pragma s) 

prot spec : EmptyProtSpec() 

| Prot(identifier prot def) 

| ProtType(identifier discrim_part_opt prot def) 


prot def: ProtDef(prot_op_decl_s prot_private_opt) 


optional prot_private_opt; 
prot_pnvate_opt : ProtPvtOptNull() 

| ProtPvtOptPromptO 
| ProtPvtOpt(prot_elem_decl_s) 


optional list prot_op_decl_s; 

prot op decl s : ProtOptDeclListNil() 

I ProtOptDeclList(prot_op_decl prot_op_decl_s) 

prol_op_decl : EmptyProtOpDecl() 

I EntryDecl(entry_decl) 

| ProtOptSubprog(subprog_spec) 

| RepSpec(rep spec) 

| ProtOptPragma(pragma) 
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optional list prot_elem_decl_s; 
prot elem decl s: ProtElemDeclNilQ 

| ProtElemDeclList(prot_elem_decl protelemdecls) 


prot elem decl: EmptyProtElem() 

| ProtOptDecl(prot_op_decl) 

| ProtElemCompDecl(comp_decl) 


rename decl : EmptyRenameDecl() 

| RenameDeclSub(def_id_s object_qualifier_opt subtype_ind renames) 
| RenameExc(def_id_s renames) 

| RenameUnitDecl(rename_unit) 


rename_unit : EmptyRenameUnit() 

| RenamePkg(generic_hdr compound name renames) 

| RenameSubpiog(generic_hdr subprog_spec renames) 


renames ; Renames(name) 


optional generic hdr, 
generic_hdr: GenericHdrNil() 

| GenericHdrPrompt() 

| GenericHdr(generic_formal_part) 


optional list generic_formal_part, 
generic_formal_part: GenericNil() 

| GenFormalList(generic_formal generic_formal_part) 


genencformal : EmptyGenFormal() 

| GenParm(param) 

| GenTypeParm(identifier generic_discrim_part_opt generic_type_def) 
| GenProcParm(identifier formal_part_opt subp_default) 

| GenFuncParm(designator formal_part_opt name subp default) 

| GenPkgParmBox(identifier name) 

| GenPkgParm(identifier name) 

| GenUsepaim(use_clause) 


optional generic_discrim_part_opt; 
genenc_discnm_part_opt: GenDiscOptNull() 

| GenDiscOptPrompt() 

| GenDisc(discrim_spec_s) 
| GenBox() 
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optional subpdefault; 
subp_del'ault: SubpDei'aultNullO 

| SubpDefaultPrompt() 
| SubpDefName(name) 
| SubpDefBoxQ 


generic_type_def: EmptyGenTypeDef() 

I GenTypeBox() 

| GenTypeRangeBox() 

| GenTypeModBoxO 
| GenTypeDeltaBox() 

| GenTypeDeltaDigBoxO 
| GenTypeDigitsBox() 

| GenTypeArray(array type) 

| GenTypeAccess(accesstype) 

| GenTypePriv(pnvatetype) 

| GenTypeDerived(generic_derived_type) 

generic_derived_type EmptyGenDerType() 

| GenDerivedSubt(subtype_ind) 

| GenDerivedSubtPri v(subty pe ind) • 

| GenDerivedAbst(subtypeind) 


integer : IntNull() 

| Integer(INTEGER) 


access type : EmptyAccessTypeO 

| AccessSubtype(subtype ind) 

| AccessConstSubtype(subtype_ind) 

| AccessAllSubtype(subtype ind) 

| AccessProcedure(prot_opt formal_part_opt) 

| AccessFunction(prot_opt formal_part_opt mark) 


optional prot_opt. 
prot_opt: ProtOptNullO 

| ProtOptPromptQ 
| ProtectedO 

body_stub . EmptyBodyStub() 

| TaskStub(identifier) 

| PkgStub(compound name) 

| SubprogSmb(subprog spec) 
| ProtStub(identifier) 
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Genlnst(name) 



optional psdl, 
psdl : Empty Psdl() 

| PsdlPH() 

| Component(component) 


list components; 
component s; ComponentNil() 

| ComponentList(component components) 


component : CompDataType(data_type) 

| CompOperator(operator_imp) 


data_type : DataType(compound_name type_spec type_impl) 


type spec : TypeSpec(generic_type_decl type_decl_opt op_list_opt 
functionality) 


optional generic_type_decl; 
generic type decl: GTDNil() 

| GTD_PH() 

1 GTD(type_decl_s) 


optional type decl opt. 
type decl opt : TDO_Nil() 




I TDO_PH() 

| TDO(typedecls) 


optional list op_list_opt, 
opjist opt: OLO_Nil() 

| OLO_Cons(operator op list opt) 


operator: EmptyOperator() 

| PsdlOp(compound_name operator_spec) 


operator imp : OperatorImp(operator operatorimpl) 


operatorspec : OpSpec(interface_s functionality) 


optional list interface_s, 
interface s : Interface_s_Nil() 

| InterfaceList(interface interface_s) 


interface: Emptylnterface() 

| Interfacefattribute reqmts trace) 


attribute : Generics, Inputs, Outputs(type_decl_s) 

| States(type_decl_s imtialexpressionlist) 
| Excpts(def_id_s) 

| MET(timeunit) 


/* this list unparses with a carriage return between elements */ 
list type_decl_s; 
type_deci_s : TypeDeclNil() 

| TypeDeclList(type_decl type_decl_s) 


/* this list unparses with no carnage return between elements */ 
list type_decl_s2: 
type_decl_s2 : TypeDeclNil2() 

| TypeDeclList2(type_decl type_decl_s2) 


tvpe_decl: TvpeDeclPSDL(def_id_s type_name) 
| Empty TvpeDeclO 


tvpe_name : EmptyTypeName() 




| TN_Id(identifier) 

| TN_Array(identifier type_decl_s2) 


optional reqmts_trace; 
reqmts_trace : RqmtsNil() 

| Rqmts_PH() 

/* | Rqmts(def_id_s)*/ 


optional functionality; 
functionality ; FuncNil() 

| FuncPHO 

/* | Functionality(keywords informal_desc formaldesc)*/ 


optional keywords; 
keywords : KW_Nil() 

| KW_PH() 

| Keywords(def id s) 


optional informal_desc; 
informal_desc : ID_Nil() 

| ID_PH() 

I InfDesc(text) 


optional formal_desc; 
formal desc : FD_Nil() 


| FD_PH() 

| FormalDesc(text) 


type impl : AdaTypeImp(compound_name) 

/* | Typelmpl(type_name opimps)*/ 


operator impl : AdaOpImp(compound name) 

| Empty Impl() 

/* | PsdlOpImpl(psdl_impl)*/ 


list initial_expression_list; 
initial_expression_list : InitExpNil() 

| InitE.\pList(initial_expression initial expression list) 


initial expression: ExpTrue, ExpFalse() 
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I Explnt(integer) 

| ExpReal(REAL_CS) 

| ExpStr(QUOTED_STRING) 

I Expld(identifier) 

| ExpType(type_name identifier opt_init_exp_list) 

| ExpInitExp(initial_expression) 

| ExpBinOp(initial_expression binary op initial expression) 
| ExpUnary(unary op initial_expression) 

optional opt_init_exp_list, 
opt init exp list: optListNil() 

| optListPrompt() 

|optList(initial_expression_list) 


binary op : PsdlAnd, PsdlOr, PsdlXor, PsdlLT, PsdlGT, 

PsdlEQ, PsdlGTEQ, PsdlLTEQ, PsdlNE, PsdlAdd, 
PsdlSub, PsdlCat, PsdlMul, PsdlDiv, PsdlMod, 
PsdlRem, PsdlExpO 


unary_op : PsdlNot, PsdlAbs, PsdlNeg, PsdlPos() 


time_unit: TimeuSec, TimeMs, TimeSec, TimeMin, TimeHrs(integer) 








APPENDIX B. SSL SOURCE CODE: UNPARSING RULES 


The source code below comprises three files which specify the unparsing rules for 
Ada 95 package specifications and for PSDL 


/* File: 

unparse. ada9x.ssl 

/* Date: 

3 March, 1995 

/* Author: 

Chris Eagle 

/* System: 

Sun SPARCstation 

/* Description, 

This file contains the unparsing rules for that 

/* portion c 

if the Ada9x language which is required for 

/* package specifications. It was derived from the YACC 

/* grammar noted below. 


/******* A YACC grammar for Ada 9X ***♦*********«■«*»**»»< 
/* Copyright (C) Intermetrics, Inc. 1994 Cambridge, MA USA 
/* Copying permitted if accompanied by this statement. 

/* Derivative works are permitted if accompanied by this statement. 

/* This grammar is thought to be correct as of May 1, 1994 
/* but as usual there is *no warranty* to that effect. 


style Keyword, Placeholder; 

identifier: idNull[@ ::= “<%S(Placeholder:identifier%S)>”] 
| ldent[* ::= *] 


integer : IntNull[@ ::= ''<%S(Placeholder:integer%S)>”] 
Integer^ ::= A ] 


compilation : CompilationNil[@ : “<%S(Placeholder:compilation%S)>”] 
| Compilation!® : @ @] 


comp unit list: CUListNil[@ :] 
| CUList[@ : := * @] 


pragma : HmptvPragma[ A : "<%S(Placeholder:pragma%S)>%n”] 

| Pragmald[@ ::= "%S(Keyword:PRAGMA%S)" @ 

;%n-TRANSLATION ERROR: pragmas do not translate to PSDL%n’’] 

[ PragmaSimple[® ::= "%S(Keyword:PRAGMA%S) “ @. "(" @ 

),%n—TRANSLATION ERROR: pragmas do not translate to PSDL%n”] 
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pragmaargs: PragmaArgNil[@:] 

| PragmaSargList[@ ::= A [“, “] @] 


pragma arg : EmptyPragmaArg[ A : “<%S(Placeholder:pragma arg%S)>”] 
| PragmaExp[@ ::= @] 

| PragmaNameExp[@ @ “ => “ @] 


pragma s: PragmasNil[@:] 

| PragmasList[@ ::= A [“%n"] @] 


decl : EmptyDecl[ A : “<%S(Placeholder:declaration%S)>”] 

| ObjDecl[ A : @ “ : “ @ @ @ 

| NumDecl[ A : @ : %S(Keyword:CONSTANT%S) := “ @ 

| TypeDecl[ A : “%S(Keyword:TYPE%S) “ @ @ @ 

| SubTypeDecl[ A : “%S(Keyword:SUBTYPE%S) “ @ “ IS “ @ 
| SubProgDecl[ A : @] 

| PkgDecl[ A : @] 

| TaskDecI[ A : @ 

| ProtDecl[ A : @ 

| ExcDecl[ A : @ : %S(Keyword:EXCEPTION%S);”] 

| RenameDecl[ A : @] 

| BodyStubDecl[ A : @] 


def_id_s: DefIdNil[@ :] 

| DelldList[@ ' A [“. “] @] 


object_qualifier_opt : ObjQualOptNull[@:] 

| ObjQualOptPrompt[@ ::= ‘<%S(Placeholder:qualifiei%S)>"] 

| Aliased[ A : ‘%S(Keyword:ALIASED%S) “] 

| Constant[ A : “%S(Keyword:CONSTANT%S) “] 

| AliasedConst[ A : "%S(Keyword:ALIASED CONSTANT%S) “] 


object_subtype_def: EmptySubtypeDef[@ ::= 

‘ <%S(Placeholder:object subttype def%S)>”] 
| Subtypelnd[@ : := @] 

| ArrayType[@ ::= @] 


init opt: InitOptNull[@:] 

| InitOptPrompt[® ::= •<%S(Placeholder:initializei%S)>”] 
[ ExprInitOpt[@. ::= " := “ fffi] 


discrim_part_opt : DiscrimPartNull[@ :] 

| DiscrimPartPrompt[(a! ::= "<%S(PlacehoJder:discriminant%S)>”] 
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I DiscnmPart[® " (2)] 
I Box[@ ::="(<>)’’] 


type_completion : TypeComplNull[@ :] 

| TypeComplPrompt[ A : “<%S(Placeholder:type%S)>’’] 

| TypeDefCompi[@ ::= " %S(Keyword:IS%S) “ @] 

type_dei': EmptyTypeDef[ A : <%S(Placeholder:type def%S)>"] 
I EnumTypeDef[ / ':"(“ @ “)”] 

| IntTypeDef[ A : @) 

| RealTypeDef[ A : ®>] 

| ArrayTypeDef[ A : ®S] 

| RecordType[ A : @ @ @] 

| AccessTypeDef[ A : @] 

| DerivedTypeDef[ A : @] 

| PrivateTypeDef[ A : @] 


subtype_ind : EmptySubtInd[@ “<%S(Placeholder:subtype_ind%S)>”] 
| SubtypeIndConstraint[@ ::= @ @] 

| SubTypeIndName[@ ::=@] 


constraint : Empty Constraint [ A : “<%S(Placeholder:constraint%S)>”] 

| RangeConstraint[@ ::= @] 

| DecDigConstraint[@ ::= “ %S(Keyword:DIGITS%S) “ @ @] 

denved type : EmptyDerivedType[ A : “<%S(PlacehoIder:derived type%S)> - ’] 

| NewDerivedType[ A : “%S(Keyword:NEW%S) “ @ ] 

| NewDerivedWithPrivate[ A : "%S(Keyword:NEW%S) “ @ 

“ %S(Keyword: WITH PRIVATE%S)"] 

| NewDerivedWithRecord[ A . “%S(Keyword:NEW%S) “ @ 

“ %SfKeyword: WITH%S) “ @ ] 

| AbsNewDerivedWithPrivate[ A : “%S(Kevword:ABSTRACT NEW%S) “ @ 
• %S(Key word: WITH PRIVATE%S)”] 

| AbsNewDerivedWithRecord[ A : “%S(Keyword:ABSTRACT NEW%S) “ @ 
“ %S(Keyword:WITH%S) “ @ ] 


range constraint : Range[@ ::= ‘%S(Keyword:RANGE%S) “ @] 


range: EmptyRange[ A '<%S(PlacehoIder:range%S)>”] 

| SimpIeRange[ A : (ffl (2)J 
| NameTicRange[ A : fS> ‘ %S(Keyword:RANGE%S)”] 

| NameTicRangeExp[ A : @ ••‘%S(Kevword:RANGE%S)(“ @ “)"] 
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enum_id_s : EnumIdNil[@:] 

| EnumIdList[@ ::= A [“, '] @] 


enum id : Empty Enumld[(g! ::= “<%S(Placeholder:enumeration id%S)>”] 
| Id[®, ::= @] 

| CharLit[@ ::= @] 


integerjtype : EmptyIntType[@ ::= ‘ <%S(Placeholder:int type%S)>”] 
| RangeSpec[@ ::= @] 

| ModExpr[@ ::= “ %S(Keyword:MOD%S) “ @] 


range_spec : RangeSpecConstr[@ : 


range spec opt : RangeSpecOptNull[@ :] 

| RangeSpecOptPrompt[@ ::= “<%S(Placeholder:rangespecifier%S)>”] 
| RangeSpecOpt[@ ::= “ “ @] 


real_type : EmptyRealType[@ ::= “<%S(Placeholder:real type%S)>”] 
| FloatType[@ ::= “%S(Keyword:DIGITS%S) “ @ “ “ @] 

| FixedType[@ ::= @] 


fixed type : EmptyFixedType[@ ::=“<%S(Placeholder:fixed_type%S)>”] 
| FixedDelta[@ ::= “%S(Keyword:DELTA%S) “ @ “ “ @] 

| FixedDeltaDigits[@ ::= “%S(Keyword:DELTA%S) “ @ 
%S(Keyword:DIGITS%S) “ @ @] 


array type : EmptyArrayType[@ ::= “<%S(Placeholder:array type%S)>”] 
| UnconstrArray[@ ::= “%S(Keyword:ARRAY%S) C‘ @ 

“) %S(Keyword:OF%S) “ @] 

| ConstrArray[@ ::= “%S(Keyword:ARRAY%S) (“ @ 

“) %S(Keyword:OF%S) “ @] 


component subtype def : CompSubtypeDef[@ ::= @ @] 


aliased_opt: AliasedOptNull[@:] 

| AliasedOptPrompt[@ ::= “<%S(Placeholder:aliased%S)> ’] 
| AliasedOpt[ A : “%S(Keyword:ALIASED%S) “] 


index_s : IndexNilf®.:] 

| IndexList[@ A ‘ %S(Keyword:RANGE%S) o" “] @] 
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iterdiscreteranges: DiscreteRangeNil[@:] 
| DiscreteRangeList[®. ::= A [“, “] @] 


discrele_range : EmptvDiscRng[® ::= “<%S(Placeholder:discrete range%S)>"] 
| DiscRangeName[@ ::= ®, ®] 

| DiscRangeRange[® @] 


range_constr_opt: EmptyRangeConstrOpt[@ ::= 

"<%S(Placeholder:range constraint%S)>'’] 
| RangeConstr[®. ::= " “ @] 


record def: Empty RecordDef[@ ::="<%S(Placeholder:record def%S)>”] 
| Record [® ::="%S(Keyword:RECORD%S)%t%n” @ @ 
■%b%n%S(Key word :END RECORD%S)”] 

| NullRecord[ A : "%S(Keyword:NULL RECORDVoS)”] 


tagged_opt: TaggedOptNull[@ :J 

| TaggedOptPrompt[@ ::= “<%S(Placeholder:tagged%S)>”] 

| Tagged[ A : %S(Keyword:TAGGED%S) “] 

| AbstractTagged[ A : "%S(Keyword:ABSTRACT TAGGED%S) '] 


comp_list: EmptyCompList[@ ::= “<%S(Placeholder:comp list%S)>”] 
| CompListWithVariant[@ ::=@ @] 
j CompL istWithPragma [@ ::= @ @] 

| NullWithPragma[@ ::= “ %S(Keyword:NULL%S);%n - ’ @] 


comp_decl_s : CompDeclNil[@ :] 

| CompDecl[® ::= @] 

| CompDeclList[@ ::= @ ®, @] 


vanant_part_opt: Empty VariantPart[@ ::= ' <%S(PlacehoIder:variant part%S)>”] 
| VariantPartOptPragma[@ ::= ®] 

| VanantPartOpt[@ ::= @ ® @] 


compdecl : CompDeclDefs[®. ::= ® “ ® ® “;%n”] 


discrim_spec_s : DiscrimSpecNilf,® :] 

| DiscrimSpecList[®. ::= A ,®.] 


discrim_spec : DiscnmSpecDef[® ::= ®. “ (® ®. ®] 
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access opt: AccessOptNull[@:] 

| AccessOptPrompt[@ ::= “<%S(Placeholder:access%S)>”] 
| AccessOpt [ A : “%S(Keyword:ACCESS%S) “] 


variant_part : VariantPart[@ ::=“%S(Keyword:CASE%S)“ @ 
“ %S(Keywoid:IS%S)%t%n” @ @ 
"%b%n%S(Keyword:END CASE%S);%n”] 


variant s : VariantNil[@ :] 

| VariantList[@ ::= A [“%n”] @] 


variant: VariantChoice[@ 


: “%S(Keyword:WHEN%S) “ @ “ =>%t%n” 


choice_s : ChoiceNil[@ :] 

| ChoiceList[@ ::= A [“ | “] @] 


choice : EmptyChoice[@ ::= “<%S(Placeholder:choice%S)>”] 
| ChoiceExpr[@ @] 

| ChoiceRange[@ ::= @] 

| ChoiceOthers[ A : “%S(Keyword:OTHERS%S)”] 


discrete_with_range : DiscreteNameRange[@ ::= “ “ @] 

| DiscreteWithRange[@ ::= @] 


access_type : EmptyAccessType[ A : “<%S(Placeholder:access type%S)>”] 

| AccessSuhtype[ A : “%S(Keyword:ACCESS%S) " @] 

| AccessConstSubtype[ A : '%S(Keyword:ACCESS CONSTANT%S) “ @] 
| AccessAllSubtype[ A : “%S(Keyword:ACCESS ALL%S) “ @] 

| AccessProcedure[ A : "%S(Keyword:ACCESS%S) “ @ 

" %S(Keywoid:PROCEDURE%S) “ @] 

| AccessFunction[ A : %S(Kevword:ACCESS%S) “ @ 

• %S(Keyword:FUNCTION%S) “ @ 

“ %S(Keyword:RETURN%S) “ @ “%n”] 


prot opt: ProtOptNull[(2).:] 

| ProtOptPrompt[@ ::= '<%S(Placeholder:protected%S)> ‘] 
| Protected[ A : " %S(Keyword:PROTECTED%S) “] 


decl item s : DeclListNil[@ :] 



| DeclList[fa> A 


%n%n"] ®] 


decl_item : Empty Decl!tem[!a) ::= <%S(Placeholder decl item%S)> “] 
I Decl[0 ::=(§] 

| UseClauseDecl[@ :;= @] 

| DeclRepSpec[@ ::= @] 

| DeclPragma[® ::= @] 


name : EmptyName[@ ::= "<%S(Placeholder:name%S)>”] 
| SimpleName[($ ::= @] 

I IndexComp[@ ::= ® “(“ (S .")”] 

| SelectedComp[@ ::= @] 

I Attribute[@ ::= (g @] 

| OperatorSymboI[(2> ::= ®] 


mark ; EmptyMark[@ ::= “<%S(Placeholder:mark%S)>”] 
| Mark[@ ::=@ @] 


ticdot: TicDotNil[(2) ::=] 

| TicDotPH[@ ::= “<%S(PIaceholder: 'ATTR or ID%S)>”] 
| TicOpt[® ::=“V” @] 

|DotOpt[® @] 


marklist : MarkLislNil[@ :;=] 
|MarkList[@ : := ^ @] 


compoundname; EmptyCompound[@ .] 
| DotCompound[@ ::= A @] 


name list: CompoundNameNil[@ :] 
I CompoundList[@ ::= A "] ©] 


value s : ValueNil[@ :] 

| ValueList[<§> ::= A "] @] 


value ; Empty Value[(2> ::= ' <%S(Placeholder:value%S)>”] 
| ValueExpr[@ ::= ®] 

| ValueCompAssoc[@ @] 

| ValueDiscWithRangef® ::= @] 


selected comp : EmptySelComp[@ ::= ■ <%S(Placeholder:selected component%S)>'’] 
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| DotId[@ ::= @ %] 

| DotUsedChar[@ ::= @ @] 

| DotString[(S) ::= @ @] 

| DotAU[@ ::= @ “ %S(Keyword:ALL%S)”] 


attnbute id : Empty Attribld[@ ::= "<%S(PlacehoIder:attribute id%S)>”] 
|AttribId[@::=@] 

| AttribDigits[ A : “%S(Keyword:DIGITS%S) ’] 

| AttribDelta[ A : “%S(Keyword:DELTA%S)”] 

| AttribAccess[ A : “%S(Keyword:ACCESS%S)”] 


numeric_lit : IntLit[@ ::= @] 


literal : EmptyLiteral[@ ::= “<%S(Placeholder:literal%S)>”] 
| NumLit[@ ::= @] 

| UsedChar[@ ::= ®.] 

| NilLit[ A : “%S(Keyword:NULL%S)”] 


aggregate : EmptyAggregate[@ ::= “<%S(Placeholder:aggregate%S)>”] 

| AggCompAssoc[@ ::= “(“ @ “)”] 

| AggValues2[@ ::= 

| AggExprValue[@ : := “(“ @ “ %S(Keyword:WlTH%S) “ @ “)”] 

| AggExprWithNull[@ ::= '(“ @ “ %S(Keyword:WITH NULL RECORD%S))”] 
| AggExpNullRec[ A : “(%S(Keyword:NULL RECORD%S))”] 


value_s_2 : ValueS2Pair[@ ::= @ ", " @] 

| ValueS2List[@ ::= @ “ @] 

comp_assoc : CompAssoc[@ ::= @ “ => “ @] 


expression : EmptyExpression[@ ::= ‘’<%S(Placeholder:expression%S)>”] 
| Relation[@ ::= @] 

1 And[(3> ::= @ “ %S(Keyword:AND%S) “ @] 

| Or[@ (a). “ %S(Keyword:OR%S) “ @] 

| Xor[® ::= @ " %S(Keyword:XOR%S) “ @] 

| Andfhen[@ ::= @ “ %S(Keyword:AND THEN%S)" @] 

| OrElsef @ @ “ %S(Keyword:OR ELSE%S) " @] 


relation : EmptyRelation[@ ::= '<%S(Placeholder:relation%S)>”] 
| SimpleExpr[@ ::= @] 

1 Equal[©. ::= @ " = " (®J 
| NotEqual[@ ::= @ " /= " @] 



| LessThan[@ : := ® " < “ ®.] 

| LessThanEq[®. ::= ® " <= " @] 

| GreaterThan[@ ::= @ “ > “ @J 
| GreaterThanEq[@ ::= @ “ >= “ (t 
| RangeMemberf® ::= @ @ fa)] 

| NameMember[@ ::= ® ® ®] 


membership : EmptyMembr[@ ::= “<%S(Placeholder:mbr op%S)>’’] 
| Inf'': “ %S(Keyword:IN%S) “] 

| NotIn[ / '; “ %S(Keyword:NOT IN%S) “] 


simp!e_expression : EmptySimple[@ ::= “<%S(Placeholder:simple expr%S)>’’] 
| Term[@ ::= @ @] 

| Addition!® ::= @ “ + “ fa}] 

| Subtraction[@ ::= @ “ - “ @] 

| Concat[@ @ “ @] 


unary : UnaryNull[@ :] 

| UnaryPrompt[@ ::= “<%S(Placeholder:unary op%S)>”] 
| Plus[ A : "+”] 

| Minus[ A : ‘ - ’J 


term : EmptyTerm[@ ::= ‘<%S(Placeholder:teim%S)>”] 
| Factor[® ::=®] 

| Mult[® ::= ® “ @] 

| Divide!® : := @ “ / “ ®] 

| Mod[@ @ “ %S(Keyword:MOD%S) “ @] 

| Rem[@ ::= @ " %S(Keyword:REM%S) “ @] 


factor : Empty Factor!® ::= '<%S(Placeholder:factot%S)>”] 
| Primary [@ ::= @] 

| NotPrimary[@ ::= “%S(Keyword:NOT%S) “ @] 

| AbsPrimary[@ ::= “%S(Keyword:ABS%S)" @] 

| Expon[@ ::= @ “ ♦* " @] 


primary : EmptyPrimary[® ::= "<%S(Placeholder:primary%S)>”] 
| Literal!® ::= @J 
| PnmaryNamef® ::= ®] 

| Allocator!® ::=®,] 

| Qualified!® ::= ®] 

| Parensf® “(“ ® ')“] 

| PnmaryAgg!® ::= ®] 


qualified : EmptvQual[@ ::= "<%S(Placeholder qualified%S)>”] 
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| NarneTicAgg[® ::= ®..@] 

| NameTicExpr[@ ::= @ '(“ @ ") '] 


allocator : newName[@ ::= “%S(Keyword:NEW%S) “ @] 
| NewQualified[@ ::= ‘%S(Keywoid:NEW%S) “ @] 


subprog decl: EmptySubpDecl[@ ::= “<%S(Placeholder:subprog decl%S)>”] 

| SubprogSpec[@ ::= @ @ @] 

| GenericSubproglnst[@ ::= (3) “ %S(Keyword:IS%S) “ @ @] 

| AbstractSubprogSpec[@ ::= @ “ %S(Keyword:IS ABSTRACT%S);” @] 


psdl_met_opt: MetNull[@ :] 

| MetPrompt[@ ::= “%n<%S(Placeholder:psdl met%S)>”] 

| MetUsec[@ ::= “%n -PSDL MAXIMUM EXECUTION TIME “ @ “ MICROSEC"] 
| MetMs[@ : := “%n -PSDL MAXIMUM EXECUTION TIME “ @ “ MS”] 

| MetSec[@ ::= “%n -PSDL MAXIMUM EXECUTION TIME “ @ “ SEC”] 

| MetMin[@ ::= “%n -PSDL MAXIMUM EXECUTION TIME “ @ “ MIN"] 

| MetHrs[(2> ::= ‘%n -PSDL MAXIMUM EXECUTION TIME “ @ “ HOURS”] 


subprog_spec : EmptySubpSpec[@ ::= ‘<%S(Placeholder:subprog spec%S)>”] 

| SubProgProc[@ ::= ”%S(Keyword:PROCEDURE%S) “ @ @] 

| SubProgFuncRetum[@ ::= “%S(Keyword:FUNCTION%S) “ @ @ 

“ %S(Keyword:RETURN%S) “ @ 

“;%n—TRANSLATION_ERROR: Functions do not translate to PSDL"] 
| SubProgFunc[@ ::= “%S(Keyword:FUNCTION%S) “ @ 

”;%n—TRANSLATION_ERROR: Functions do not translate to PSDL”] 


designator : Empty Designator!® ::= “<%S(Placeholder:designatoi%S)>"] 
| DesigCompound[@ ::= («!] 

| DesigString[@ ::= @] 


t'ormal_part_opt: FormalPartOptNull[@:] 

| FormalPanOptPrompt[(® ::= “<%S(Placeholder:formals%S)>”] 
| FormalPart[@ ::= '(“ @ “)”] 


param_s: ParamNil[@:] 

| ParamList[@ : := A [“; “] @] 


param . Paramld[@. ::= ®. “ : ' @ @ (SJ 


mode : ModeNull[@:] 

| ModePrompt[(«i ::= <%S(Placeholder:mode%S)> '] 
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| InMode[ A : •%S(Keyword:IN%S) "] 

| OutMode[ A : "%S(Keyword:OUT%S) ‘] 

| InOutMode[ A : “%S(Keyword:IN OUT%S) “] 

| AccessMode[ A : “%S(Keyword:ACCESS%S) “] 


pkg_decl: EmptyPkgDecl[@ ::= "<%S(Placeholder:pkg decl%S)>”] 

| PkgSpec[@ ::= ® @ “;%n”] 

| GenPkgInst[@ ::= “%S(Keyword:PACKAGE%S) " @ ~ %S(Keyword:IS%S) “ @] 


pkg_spec : Package[@ ::= "%S(Keyword:PACKAGE%S) “ @ 

“ %S(Keyword:IS%S)%t%n” @ @ 
“%b%n%S(Keyword:END%S) “ compound_name] 


private_part: PrivatePartNull[@ :] 

| PnvatePartPrompt[@ ::= “%n<%S(PlacehoIder:private part%S)>”] 
| Private[@ ::= •‘%n%S(Keyword:PRIVATE%S)%t%n” @] 


private type : PrivateType[@ ::= @ “%S(Keyword:PRIVATE%S)”] 


limited_opt: LimitedOptNull[@:] 

| LimitedOptPrompt[@ ::= “<%S(Placeholder:limited%S)>”] 
| Limited[@ : := “%S(Key word:LIMITED%S) “] 


use clause : EmptyUseC[@ ::= ' <%S(Placeholder:Use clause%S)>"] 
| Use[C<4 ::= “%S(Keyword:USE%S) “ % ";%n”] 

| UseType[@ ::= “%S(Keyword:USE TYPE%S) “ @ 


name_s : NameNil[@ :] 

| nameList[@ ::= A [“, “] @] 


rename decl: EmptyRenameDecl[@ ::= “<%S(Placeholder:renamedecl%S)>”] 
Renam«DeclSub[@ ::= (a). “ : “ @ (3)." “ @ 

| RenameExc[®. ::=“® “ : %S(Keyword:EXCEPTION%S)" @ 

| RenameUmtDecl[@ ::= @] 


rename_unit: EmptyRenameUnit[(3> ::= ‘<%S(Placeholder:rename unit%S)>”] 
| RenamePkgi® ::= (a). "%S(Keyword:PACKAGE%S) “ '*" @ 

| RenameSubprog[@ ::= (a). @ “ ” @ 


renames : Renames[® ::= "%S(Keyword:RENAMES%S) “ @] 
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task_def {inh identifier idopt;}; 

task spec : Empty TaskSpec[@ ::= “<%S(Placeholder:task spec%S)>"] 
| SimpieTask[® ::= “%S(Keyword:TASK%S) “ @ @] { 
taskdef.idopt = identifier, 

} 

| TaskType[@ ::= “%S(Keyword:TASK TYPE%S) “ @ @ @] { 
taskdef.idopt = identifier; 


task_def: TaskDefNull[@:] 

| TaskDefPrompt[@ ;:= “<%S(Placeholder:task def%S)>”] 
| TaskDef[@ ::= “ %S(Keyword:IS%S)%t%n” @ @ @ 
“%b%n%S(Keyword:END%S) “ 
taskdef.idopt] 


task_private_opt : TaskPvtOptNull[@:] 

| TaskPvtOptPrompt[@ ::= ' <%S(Placeholder:task private%S)>”] 
| TaskPvtOpt[@ ::= “%S(Keyword:PRIVATE%S)%n’' @ @] 


prot_def {inh identifier idopt;}; 

prot spec : EmptyProtSpec[@ ::= “<%S(Placeholder:protected spec%S)>”] 

| Prot[@ ::= ‘%S(Keyword:PROTECTED%S) “ @ @] { 
prot_def.idopt = identifier; 

} 

| ProtType[@ ::= ‘%S(Keyword:PROTECTED TYPE%S) “ @ @ @] { 
prot_def.idopt = identifier; 


prot def: ProtDef[@ ::= “ %S(Keyword:IS%S)%t%n” @ @ 
“%b%n%S(Keyword:END%S) “ 
prot_def.idopt] 


prot_private_opt : ProtPvtOptNull[@ :] 

| ProtPvtOptPrompt[@ ::= “<%S(Placeholder:protected private%S)>”] 
| ProtPvtOpt[@ ::= “%S(Keyword:PRIVATE%S)%t%n” @] 


prot_op_decl_s : ProtOptDeclListNil[@:] 
| ProtOptDeclList[@ ::= A [“%n”] ®\ 


prot op decl: EmptyProtOpDecl[@ ::= • <%S(Placeholder:prot op%S)>”] 
| Entry Decl [te ::= @] 



ProtOplSubprog[@ : := &. ““/in'] 
| RepSpec[@ ::= @] 

| ProlOptPragmaJ'a ::= @] 


prot_elem_decl_s: ProtEIemDeclNil[® :] 

| ProiElemDeclList[(a! ::= A [“%n ] (a)] 


prot_elem_decl: EmptyProtEIem [@ ;:= “<%S(Placeholder:prot elem%S)>”] 
| ProtOptDecl[@ ::= @] 

| ProtElemCompDecl[@ ::= @] 


entry decl s : EntryDeclPragma[@ ::= @] 

| EntryDeclPragmaList[@ ::= (a). @ @] 


entry decl : EmptyEntryDecl[@ ::= "<%S(Placeholder:entiy decl%S)>”] 

| EntryDeclld[@ ::= “%S(Keyword:ENTRY%S) “ @ @ “;%n”] 

| EntryRange[@ ::= “%S(Keyword:ENTRY%S) “ @ “(“ @ “)” @ “;%n”] 


rep_spec_s: RepSpecNull[(S) :] 

| RepSpecPrompt[@ ::= “<%S(Placeholder:representation specs%S)>”] 
| RepSpecList[@ ::= @ @ @] 


comp unit: CompUnit[@ @ @ “%n” @ “%n" @] 


private opt : PrivateOptNull[@ :] 

| PrivateOptPrompt[@ "<%S(Placeholder:private%S)>”] 
| PrivateOpt[@ ::= “%S(Keyword:PRIVATE%S)”] 


context_spec_opt: ContextSpecNull[@ :] 

| ContextSpecPrompt[@ ::= "<%S(Placeholder:context spec opt%S)>%n”] 
| ContextSpec[@ ::= @ “%n”] 


context_spec : EmptyContextSpec[@ ::= '<%S(Placeholder:context spec%S)>”] 
| ContextWithUse[@ ::= @ @ @] 

| ContextPragma[@ ::= (3> @] 


with_clause : WithClause[@ ::= '-%S(Keyword:WITH%S) " @ “;%n”] 


use_clause_opt : UseCIauseOptNil[@.:] 
| UseClause[(2> ::= A @] 





body stub : Empty Body Stub[@ ::= “<%S(Placeholder:body smb%S)>”] 
| TaskStub[@ : := “%S(Keyword:TASK BODY%S) “ @ 

“ %S(Keyword:IS SEPARATE%S);%n”] 

| PkgStub[@ ::= “%S(Keyword:PACKAGE BODY%S) “ @ 

“ %S(Keyword:IS SEPARATE%S);%n”] 

| SubprogStub[@ ::= @ “ %S(Keyword:IS SEPARATE%S);%n”] 

I ProtStub[@ ::= “%S(Keyword:PROTECTED BODY%S) “ @ 

“ %S(Keyword:IS SEPARATE%S);%n”] 


generic_hdr : GenericHdrNil[@:] 

| GenericHdrPrompt[@ : "<%S(Placeholder:generic header%S)>%n”] 

| GenericHdr[@ ::= "%S(Keyword:GENERIC%S)%t%n” @ “%b%n”] 


generic_formal_part: GenericNiI[@ :] 

| GenFormalList[@ ::= A [“%n”] @] 


generic_formal : EmptyGenFormal[@ ::= “<%S(Placeholder: generic formal%S)>”] 

| GenParm[@ ::= @ 

“;%n—TRANSLATION_ERROR: Generic value parameters do not “ 
“translate to PSDL”] 

| GenTypeParm[@ ::= “%S(Keyword:TYPE%S) “ @ @ 

“ %S(Keyword:IS%S) “ @ “;”] 

| GenProcParm[@ ::= “%S(Keyword:WITH PROCEDURE%S) “ @ @ @ 

| GenFuncParm[@ ::= “%S(Keyword:WITH FUNCTION%S) “ @ @ 

“ %S(Keyword:RETURN%S) “ @ @ 

| GenPkgPannBox[@ ::= “%S(Keyword:WITH PACKAGE%S) “ @ 

“ %S(Keyword:IS NEW%S) “ @ 

“(o);%n—TRANSLATION_ERROR: Generic package parameters “ 
“do not translate to PSDL”] 

| GenPkgParm[@ ::= “%S(Keyword:WlTH PACKAGEVoS) “ @ 

“ %S(Keyword:IS NEW%S) “ @ 

“;%n—TRANSLATION_ERROR: Generic package parameters do not “ 
“translate to PSDL”] 

| GenUseparm[@ ::= @ 

“%n-TRANSLATION_ERROR: Generic Use clauses do not “ 
“translate to PSDL”] 


generic_discrim_part_opt: GenDiscOptNull[@:] 

| GenDiscOptPrompt]® ::= “<%S(Placeholder:discriminant%S)>”] 
| GenDisc[@ ::= “(“ @ “)”] 

| GenBosi” '( <=> )' ] 


subp defaull: SubpDet'aultNull[@.:] 

| SubpDefaultPrompt[@ ::= “<%S(Placeholder:det'ault%S)>"] 
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| SubpDefName[@ ::= “ %S(Keyword:IS%S) " @] 
| SubpDefBox[@ ::= “ %S(Keyword:IS%S) o' ] 


genenc type def: EmptyGenTypeDef[@ ::= “<%S(Placeholder:generic type def%S)>”] 
| GenTypeBox[ A : “(o)”] 

| GenTypeRangeBox[ A : “%S(Keyword:RANGE%S) o”] 

| GenTypeModBox[ A : “%S(Keyword:MOD%S) o”] 

| GenTypeDeltaBox[ A : “%S(Keyword:DELTA%S) o”] 

| GenTypeDeltaDigBox[ A : 

“%S(Keyword:DELTA%S) o %S(Keyword:DIGITS%S) o"] 

| GenTypeDigitsBox[ A : “%S(Keyword:DIGITS%S) o”] 

| GenTypeArray[@ ::= @] 

| GenTypeAccess[@ ::= @] 

| GenTypePriv[@ ::= @] 

| GenTypeDerived[@ ::= @] 


generic_derived_type: EmptyGenDerType[@ ::= 

“<%S(Placeholder:generic derived type%S)>”] 

| GenDerivedSubt[@ ::= “%S(Keyword:NEW%S) “ @] 

| GenDerivedSubtPriv[@ : := "%S(Keyword:NEW%S) “ @ 

“ %S(Keyword:WITH PRIVATE%S)”] 

| GenDerivedAbst[@ ::= “%S(Keyword:ABSTRACT NEW%S) “ @ 
“ %S(Key word: WITH PRIVATE%S)”] 


genericinst: Genlnst[@ ::= “%S(Keyword:NEW%S) “ @] 


rep spec : EmptyRepSpec[@ ::= “<%S(PIaceholder:representation spec%S)>'’] 

| AttribDef[@ ::= “%S(Keywoid:FOR%S) “ @ “ %S(Keyword:USE%S) “ @ ‘•;%n”] 
| RecordTypeSpec[@ ::= “%S(Keyword:FOR%S) “ @ 

“ %S(Keyword:USE RECORD%S)%t%n” @ @ 
“%b%n%S(Keyword:ENDRECORD%S);%n”] 

| AddressSpec[@ ::= “%S(Keyword:FOR%S) “ @ 

“ %S(Keyword:USE AT%S) “ @ “;%n”] 


ahgn_opt: AlignOptNull[@:] 

I AlignOptPrompt[@ ::= "<%S(Placeholder:align%S)>"] 

| AlignOpt[@ ::= "%S(Keyword:AT MOD%S) “ @ “;%n"] 


comp_loc_s: CompLocNull[@ :] 

| CompLocPrompt[fa! ::= “<%S(P!aceholder:]ocations%S)>”] 
| CompLocList[@ ::= (a). @ u %S(Keyword:AT%S) “ @ 

" %S(Keyword:RANGE%S) “ @ “;%n"] 
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/* File: 

/* Dale: 

/* Author: 

/* Descriptioi 


unparse. AdaToPsdl.ssl 
3 March, 1995 
Chris Eagle 
Sun SPARCstation 

This file contains the unparsing rule to display 


the PSDL translation of an Ada 9x package specificatioi 
as derived from the YACC grammar noted below. 


/******* a YACC grammar for Ada 9X ********************* 
/* Copyright (C) Intermetrics, Inc. 1994 Cambridge, MA USA 
/* Copying permitted if accompanied by this statement. 

/* Derivative works are permitted if accompanied by this statement. 
/* This grammar is thought to be correct as of May 1, 1994 
/* but as usual there is *no warranty* to that effect. 


view PSDLJ/IEW; 

identifier : IdNull[PSDL_VIEW A : ‘ <identifier>”] 
| Ident [PSDL_VIEW A : A ] 



integer : IntNull[PSDL_VlEW A : “<integer>”] 
| Integer[PSDL_VlEW A : A ] 


compilation : CompilationNil[PSDL_VIEW @ :] 
| Compilation[PSDL_VIEW @ A ] 


comp unit list: CUListNil[PSDL_VlEW @:] 
| CUList[PSDL_VIEW @ ::= A “%n" A ] 

pragma : EmptyPragma[PSDL_VIEW A :] 

| PragmaId[PSDL_VIEW A : ..] 

| PragmaSimple[PSDL_VIEW A : ....] 


pragma_arg_s : PragmaArgNil[PSDL_VlEW A :] 
| PragmaSargList[PSDL_VIEW A : ....] 


pragma arg : EmptvPragmaArg[PSDL_VIEW A :] 
| PragmaExpfPSDL VIEW A : ..] 

| PragmaNameExp[PSDL_VIEW A : .. ..] 






pragma_s : PragmasNil[PSDL_VIEW A :] 
| PragmasList[PSDL_VIEW A : 


decl : EmptyDecl[PSDL_V]EW A :] 

| Obj Decl [PSDL_V1EW A :.] 

| NumDeclfPSDL VIEW A : .. 

| TypeDeclfPSDL VIEW A :.] 

| SubTypeDecl[PSDL_VIEW A : .. ..] 

| SubProgDecl[PSDL_V]EW A : A “%n”] 
| PkgDecl[PSDL_VlEW A : A “%n”] 

| TaskDeclfPSDL VIEW A :..] 

| ProtDecl[PSDL_VlEW A : ..] 

| ExcDecl[PSDL_VIEW A : 

| RenameDecl [PSDL V1EW A . A ] 

| BodyStubDecl[PSDL_VlEW A : ..] 


def_id_s : DefldNil [PSDL_V1E W A :] 

| DefldL ist[PSDL_V!EW A : A [“, “] A ] 


objecl_qualifier_opt: ObjQualOptNull[PSDL_VlEW A :] 
| ObjQualOptPrompt[PSDL_VIEW A :] 

| Aliased[PSDL VIEW A :] 

| Constant[PSDL_VIEW A :] 

| AliasedConst[PSDL_VIEW A :] 


object_subtype_def: EmptySubtypeDef[PSDL_VlEW A :] 
| SubtypelndfPSDL VlEW A : 

| ArrayType[PSDL_VlEW A : ..] 


init_opt: lmtOptNull[PSDL_V]EW A :] 
| InitOptPrompt[PSDL_VIEW A :] 

| ExprInitOpt[PSDL_VlEW A : . 


discrim_part_opt: DiscrimPartNull[PSDL_VIEW A :] 
| DiscrimPartPrompt[PSDL_VlEW A :] 

| DiscrimPartjPSDL VIEW A : 
Box[PSDL_VIEW A :] 


tvpe_completion : TypeComplNull[PSDL_VIEW A :] 
| TvpeComplPrompt[PSDL_VlEW A :] 

| TypeDefComplfPSDL VlEW A : ..] 
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type_def: EmptyTypeDef[PSDL_VlEW A :] 
I EnumTypeDef[PSDL_VIEW A : ..] 

| IntTypeDef[PSDL_VIEW A : ..] 

| RealTypeDeffPSDLVIEW A : ..] 

| ArrayTypeDef[PSDL_VIEW A : 

| RecordType[PSDL_VIEW A :.] 

| AccessTypeDefIPSDL_VIEW A : ..] 

| DerivedTypeDef[PSDL_VlEW A : 

| PrivateTypeDef[PSDL_VIEW A : ..] 


subtypeind : EmptySubtInd[PSDL_VlEW A :] 

| SubtypeIndConstraint[PSDL_VlEW A : ....] 
| SubTypeIndName[PSDL_VlEW A : ..] 


constraint : EmptyConstraint[PSDL_VIEW A :] 
| RangeConstraint[PSDL_VIEW A : 

| DecDigConstraint[PSDL_VIEW A :.. 


derived_type : EmptyDerivedType[PSDL_VIEW A :] 

| NewDerivedType[PSDL_VlEW A :..] 

| NewDeri vedW ithPrivate[PSDL_VIEW A : 

| NewDerivedWithRecord[PSDL_VIEW A : .. ..] 

| AbsNewDerivedWithPrivate[PSDL_VIEW A : ..] 
| AbsNewDerivedWithRecord[PSDL_VIEW A : .. 


range_constraint: Range[PSDL_VlEW A : ..] 


range : EmptyRange[PSDL_VIEW A :] 

| SimpleRange[PSDL_VlEW A :....] 

| NameTicRange[PSDL_VIEW A : ..] 

| NameTicRangeExp[PSDL_VlEW A :....] 


enum_id_s : EnumIdNil[PSDL_VIEW A :] 
| EnumIdLisl[PSDL_VIEW A : .. ..] 


enumjd : EmptyEnumId[PSDL_VlEW A :] 
| Id[PSDL_VIEW A : ..] 

| CharLit[PSDL_VIEW A : ..] 


integer type : EmptyIntType[PSDL_VIEW A :] 
| RangeSpec[PSDL VIEW A : ..] 

| ModExpr[PSDL_VIEW A : 



rangespec : RangeSpecConstr[PSDL_VIEW 


range spec opt: RangeSpecOptNullfPSDL VIEW A :] 
| RangeSpecOptPromptfPSDLVIEW A :] 

| RangeSpecOptfPSDL VIEW A : ..] 


real type : EmptyRealType[PSDL_VIEW A :] 
| FloatType[PSDL_VIEW A : .. ..] 

| FixedTypefPSDLVIEW A : 


fixed type : EmptyFixedType[PSDL_VlEW A :] 
| FixedDelta[PSDL_VIEW A : . ..] 

| FixedDeltaDigits[PSDL_VIEW A :.] 


array_type : EmptyArrayType[PSDL_VIEW A :] 
UnconstrArray[PSDL_VlEW A : .. ..] 

| ConstrArray[PSDL_VlEW A : . ] 


component_subtype_def: CompSubtypeDeffPSDL VlEW A :.. ..] 


aliased_opt : AIiasedOptNull[PSDL_VlEW A :] 
| AIiasedOptPrompt[PSDL_VIEW A :] 

| AliasedOpt[PSDL_VIEW A :] 


index_s : IndexNil[PSDL_VlEW A :] 

| IndexList[PSDL_VlEW A : .. ..] 


iter discrete range s : DiscreteRangeNil[PSDL_VIEW A :] 
| DiscreteRangeList[PSDL_VlEW A : .. ..] 


discrete range : EmptyDiscRng[PSDL_VlEW A :] 
| DiscRangeName[PSDL_VIEW A : 

| DiscRangeRange[PSDL_VIEW A : ..] 


range_constr_opt : EmptvRangeConstrOpt[PSDL_VIEW A :] 
| RangeConstrfPSDL VIEW A : 


record_def: EmptyRecordDef[PSDL_VlEW A :] 
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I Record[PSDL_VIEW A : 

| NullRecord[PSDL_VIEW A :] 


taggedopt : TaggedOptNull[PSDL_VIEW A :] 
| TaggedOptPrompt[PSDL_VIEW A :] 

| Tagged[PSDL_VIEW A :] 

| Abstract Tagged[PSDL_VIEW A :] 


comp list: EmptyCompList(PSDL_VIEW A :] 

| CompListWithVanant[PSDL_VIEW A : .. ..] 
| CompL istW ithPragma [P SDL_ VIE W A : .. ..] 
| NullWithPragma[PSDL VIEW A :..] 


comp_decl_s : CompDecl[PSDL_VIEW A : 

| CompDeclList[PSDL_VIEW A :.] 


variant_part_opt: EmptyVariantPart[PSDL_VIEW A :] 
| VariantPartOptPragma[PSDL_VIEW A : ,.] 

| VariantPartOpt[PSDL_VIEW A :.] 


comp_decl : CompDeclDefs[PSDL_VIEW A :.] 


discrim_spec_s : DiscrimSpecNil[PSDL_VIEW A :] 
| DiscrimSpecList[PSDL_VIEW A : 


discrimspec : DiscrimSpecDef[PSDL_VIEW A :.] 


access_opt: AccessOptNull[PSDL_VEEW A :] 
| AccessOptPrompt[PSDL_VIEW A :] 

| AccessOpt[PSDL_VIEW A :] 


variant_part: VariantPart[PSDL_VIEW A :.] 


variant s : VariantNil[PSDL_VIEW A :] 
| VariantList[PSDL_VIEW A : .. ..] 


variant: VariantChoicefPSDL VIEW A :.] 



choice_s : ChoiceNil[PSDL_VIEW A :] 
| ChoiceList[PSDL_VIEW A :.. .] 


choice : EmptvChoice[PSDL_VIEW A :] 
| ChoiceExpr[PSDL_VIEW A : ..] 

| ChoiceRange[PSDL_VIEW A : 

| ChoiceOthers[PSDL_VIEW A :] 


discrete_with_range : DiscreteNameRange[PSDL_VIEW A : 
| DiscreteWithRange[PSDL_VIEW A : ..] 


access type : EmptyAccessType[PSDL_VlEW A :] 
| AccessSubtype[PSDL_VIEW A : ..] 

| AccessConstSubtypefPSDLVIEW A : ..] 

| AccessAllSubtype[PSDL_VIEW A : ..] 

| AccessProcedure[PSDL_VIEW A : .. ..] 

| AccessFunction[PSDL_VIEW A :.] 


prot opt . ProtOptNull[PSDL_VlEW A :] 
| ProtOptPrompt[PSDL_VIEW A :] 

| Protected [PSDLVIEW A :] 


decl_item_s : DeclListNil[PSDL_VIEW A :] 
/* | DeclList[PSDL_VIEW A : A [“%n”] A ]*/ 
| DeclListfPSDL VIEW A : A [“%n”] A ] 


decl_item : EmptyDeclItem[PSDL_VlEW A :] 
| Decl[PSDL_VIEW A : A ] 

| UseCIauseDecl[PSDL_VIEW A : ..] 

| DeclRepSpecfPSDL VIEW A :..] 

| DeclPragma[PSDL_VIEW A : 


name : EmptyName[PSDL_VlEW A :] 

| SimpleName[PSDL_VIEW A : ..] 

| IndexComp[PSDL_VlEW A : ....] 

| SeIectedComp[PSDL_VIEW A : ..] 

| Attribute[PSDL_VIEW A : 

| OperatorSymbol[PSDL VIEW A : ..] 


rk : EmptyMarkfPSDL VIEW A :] 
| Mark[PSDL_VIEW A : A A ] 





ticdot: TicDotNil[PSDL_VIEW A ; ] 

| TicOptfPSDLVIEW A ::= A ] 
| DotOptfPSDLVIEW A ::= A ] 


marklist: MarkListNil[PSDL_VlEW A :] 
[ MarkList[PSDL_VIEW A : A A ] 


compound name : EmptyCompound[PSDL_VIEW A :] 
| DotCompound[PSDL_VIEW A : A A ] 


c_name_list: CompoundNameNil[PSDL_VIEW A :] 
| CompoundList[PSDL_VIEW A : 


value s : ValueNil[PSDL_VIEW A :] 

| ValueListfPSDLVTEW A : ....] 


value : Empty Value[PSDL_VIEW A :] 

| ValueExpr[PSDL_VIEW A :..] 

| ValueCompAssoc[PSDL_VIEW A : ..] 

| ValueDiscWithRange[PSDL_VIEW A :..] 


selected_comp : Empty SelComp[PSDL_VIEW A :] 
| DotId[PSDL_VlEW A : 

| DotUsedChar[PSDL_VIEW A : .. ..] 

| DotString[PSDL_VIEW A :....] 

| DotAll[PSDL_VIEW A :..] 


attribute_id : EmptyAttribId[PSDL_VIEW A :] 
| AttribId[PSDL_VIEW A : ..] 

| AttribDigits[PSDL_VlEW A :] 

| AttribDelta[PSDL_VlEW A :] 

| AttribAccess[PSDL_VIEW A :] 


numericjit: IntLit[PSDL_VIEW A : A ] 
| RealLit[PSDL_VlEW A : A ] 


literal: EmptyLiteral[PSDL_VIEW A :] 
| NumLit{PSDL_VIEW A : 

| UsedChar[PSDL_VIEW A : 

| NilLit[PSDL_VIEW A :] 
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aggregate : EmptyAggregate[PSDL_VIEW * :] 
| AggCompAssocfPSDL VIEW A : ..] 

| AggVaIues2[PSDL_VIEW A : ..] 

| AggExprValue[PSDL_VIEW A : .. ..] 

| AggExprWithNull[PSDL_VIEW A : ..] 

| AggExpNulIRec[PSDL_VIEW A :] 


value_s_2 : ValueS2Pair[PSDL_VlEW A : 
| Va!ueS2List[PSDL_VIEW A : .. ..] 


comp_assoc : CompAssoc[PSDL_VIEW A : .. . ] 


expression : EmptyExpression[PSDL_VIEW A :] 
| Relation[PSDL_VIEW A :..] 

| And[PSDL_VIEW A : .. ..] 

| Or[PSDL_VlEW A : .. ..] 

| Xor[PSDL_VlEW A : .. ..] 

| AndThen[PSDL_VIEW A : 

| OrElse[ A : .. ..] 


relation : EmptyRelation[PSDL_VlEW A :] 

| SimpIeExpr[PSDL_VIEW A : ..] 

| Equal[PSDL_VIEW A : ..] 

| NotEqualfPSDLVIEW A : 

| LessThan[PSDL_V!EW A : ....] 

| LessThanEq[PSDL_VlEW A : .. ..] 

| GreaterThan[PSDL_VlEW A : .. ..] 

| GreaterThanEq[PSDL_VIEW A : .. ..] 

| RangeMember[PSDL_VIEW A :. 

| NameMember[PSDL_VIEW A :.] 


membership : EmptyMembr[PSDL_VlEW A :] 
| In[PSDL_VIEW A :] 

| NotIn[PSDL_VlEW A :] 


iple_expresston : EmptySimple[PSDL_VIEW A :] 
| Term [PSDL_VIEW A 
| Addition[PSDL_VIEW A : .. ..] 

| Subtraction [PSDLVIEW A .] 

| Concat[PSDL_VIEW A : .. ..] 


irv : UnaryNull[PSDL_VlEW A :] 
| UnarvPrompt[PSDL_VIEW A :] 

| Plus[PSDL VIEW A :] 
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I Minus[PSDL_VlEW A :] 


term : Empty Term[PSDL_VIEW A :] 
| Factor[PSDL_VIEW A : 

| Mult[PSDL_VlEW A : 

| Divide[PSDL_VIEW A : .. .,] 

| ModfPSDLVIEW A : .. 

| Rem[PSDL_VIEW A : .. ..] 


factor : EmptyFactor[PSDL_VlEW A :] 
| Primary[PSDL_VIEW A : ..] 

| NotPrimary [PSDL_VIEW A :..] 

| AbsPrimary [PSDL V1EW A : 

| Expon[PSDL_VIEW A : .. ..] 


primary : Empty Primary [PSDL_VIEW A :] 
| Literal[PSDL_V1EW A :..] 

| PrimaryName[PSDL_VIEW A : ..] 

| Al!ocator[PSDL_VIEW A : 

| Qualified[PSDL_V1EW A : 

| Parens[PSDL_VIEW A : ..] 


qualified : EmptyQual[PSDL_VlEW A :] 

| NameTicAggfPSDLVIEW A : .. ..] 
| NameTicExpr[PSDL_VIEW A : .. 


allocator: newName[PSDL_VIEW A : ..] 
| NewQualified[PSDL_VlEW A :..] 


subprog_decl: EmptySubpDecl[PSDL_VIEW A :] 
| SubprogSpec[PSDL_VIEW A : A A 

| GenericSubproglnst [PSDL _VIEW A :.] 

1 AbstractSubprogSpec[PSDL_VIEW A :....] 


psdl_met_opt: MetNull[PSDL_VIEW A :] 
| MetPromptfPSDL VIEW A :] 

| MelUsec[PSDL_VIEW A : 

| MetMs[PSDL_VlEW A : ..] 

| MetSec[PSDL_VIEW A : ..] 

1 MetMin[PSDL_VIEW A : 

| MetHrs[PSDL_VIEW A : ..] 


subprog spec : EmptvSubpSpec[PSDL_VIEW A : ] 
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SubProgProc[PSDL VIEW A : ] 

SubProgFuncRetum[PSDI. VIEW A :.] 

SubProgFunc[PSDL_VIEW A : ..] 

/* for generic inst and generic rename */ 


designator : EmptyDesignator[PSDL_VIEW A :] 
DesigCompound[PSDL_VIEW A : A j 
[ DesigString[PSDL_VIEW A : ] 


:nal_par!_opt; FonnalPartOptNulllPSDL_VIEW A ;] 
| FormaIPartOptPrompt[PSDL_VIEW A :] 

| Forma!Part[PSDL_VIEW A : 


param_s : ParamNil[PSDL_VIEW A : ] 

| ParamI,isl[PSDI,_VlEW A : A [“, “] A ] 


param : ParamId[PSDL_VIEW A : A “ : “ .. A ..] 


mode : ModeNuIl[PSDI._VIEW A :] 
ModePrompt[PSDL_VIEW A :] 
InMode[PSDL_VIEW A :] 
OutMode[PSDL_VIEW A :] 
InOutMode[PSDL_V1EW A :] 
AccessMode[PSDL_VIEW A :] 


pkg_dccl: EmptyPkgDecl[PSDL_VIEW A :] 
PkgSpec[PSDL_VIEW A :psdl_trans] 
| GenPkgInst[PSDL_VIEW A : .. 


pkg_spec : Package[PSDI._VIEW A :.] 


private_part : PrivatePartNull[PSDL_VIEW A :) 
| PrivatePartPrompt[PSDL_VIEW A :] 

[ Private[PSDI._VIEW A : ..] 


pnvate_type : PrivateType[PSDI._VIEW A : . | 


litnited_opt: LimitedOptNull[PSDL_VIEW A :J 
| LimitedOptPrompt[PSDL_VIEW A :] 

| Limited[PSDI._VIEW A :] 





use_clause : EmptyUseC[PSDL_VIEW A :] 
| Use[PSDL_VIEW A : ..] 

[ Usetype[PSDL_VIEW A : 


name_s : NameNil[PSDL_VIEW A :] 
| nameList[PSDL_VIEW A :.. ..] 


renamedecl: Empty RenameDeclfPSDLVIEW A :] 

| RenameDeclSub[PSDL_VIEW A :.] 

| RenameExc[PSDL_VIEW A : ....] 

| RenameUnitDecl [PSDL_VIEW A : A ] 


rename unit: EmptyRenameUnit[PSDL_VTEW A :] 

| RenamePkg[PSDL_VlEW A :.] 

| RenameSubprog[PSDL_VTEW A : A A ..] 


renames : Renames[PSDL_VlEW A : ..] 


task spec : EmptyTaskSpec[PSDL_VIEW A :] 
| SimpleTask[PSDL_VIEW A : .. ..] 

| TaskType[PSDL_VEW A :.] 


task_def: TaskDefNull[PSDL_VIEW A :] 
| TaskDetPrompt[PSDL_VlEW A :] 

| TaskDef[PSDL_VlEW A :.] 


task_private_opt: TaskPvtOptNull[PSDL_VIEW A :] 
| TaskPvtOptPrompt[PSDL_VlEW A :] 

| TaskPvtOpt[PSDL_VIEW A :....] 


prot spec : EmptyProtSpec[PSDL_VlEW A ;] 
| ProtfPSDL VIEW A : .. ..] 

| ProtTypefPSDL VIEW A :.] 


prot_def: ProtDef[PSDL_VlEW A : .. ..] 


prot_private_opt: ProtPvtOptNull[PSDL_VIEW A :] 
| ProtPvtOptPrompt[PSDL_VIEW A :] 

| ProtPvtOpt[PSDL_VIEW A : 


94 



prot_op_decl_s : ProtOptDeclListNil[PSDL_VlEW A :] 
| ProtOptDeclList[PSDL_ VIE W A : . ..] 


protopdecl. Empty ProiOpDecl[PSDL_VIEW a ] 
| EntryDecl[PSDL_VIEW A : .] 

| ProtOptSubprog[PSDL_VIEW A : ..] 

| RepSpecfPSDL VIEW A : ..] 

| ProtOptPragmaflPSDL VIEW A : .] 


prot_elem_decl_s : ProtElemDeclNil[PSDL_VlEW A :] 
| ProtElemDeclList[PSDL_VIEW A : .. ..] 


prot elem decl: EmptyProtElem[PSDL_VIEW A :] 
| ProtOptDecl[PSDL_VIEW A : 

| ProtEIemCompDeclfPSDL VIEW A : 


entry_decl_s : EntiyDeclPragma[PSDL_VIEW A : ..] 
| EntryDeclPragmaList[PSDL_VIEW A :.] 


entry decl : EmptyEntryDecl[PSDL_VlEW A :] 
| EntryDeclId[PSDL_VIEW A :.. ..] 

| Entry Range [PSDL_VIEW A :.] 


re p_spec_s : RepSpecNull[PSDL_VlEW A :] 
| RepSpecPrompt[PSDL_VlEW A :] 

| RepSpecList[PSDL_VlEW A :.] 


comp unit: CompUnitfPSDL VlEW A 


private opt : PrivateOptNull[PSDL_VlEW A :] 
| PrivateOptPrompt[PSDL_VlEW A :] 

| PrivateOpt [PSDL_V1EW A :] 


itext_spee_opt: ContextSpecNull[PSDL_VIEW A :] 
| ContextSpecPrompt[PSDL_VIEW A :] 

| ContextSpec[PSDL_VlEW A : 


text spec : EmptvContextSpecfPSDL VIEW A :] 

| ContextWithUse[PSDL_VIEW A :.] 

| ContextPragma[PSDL_VIEW A : .. ..J 




withclause : WithClause[PSDL_VIEW A : .,] 


use clause opt; UseClauseOptNil[PSDL_VIEW A :] 
| UseClause[PSDL_VIEW A : 


body_stub : EmptyBodyStub[PSDL_VIEW A :] 
| TaskStub[PSDL_VIEW A : 

| PkgStub[PSDL_VIEW A : ..] 

| SubprogStub[PSDL_VIEW A : ..] 

| ProtStub[PSDL_VIEW A :..] 


generic_hdr : GenericHdrNil[PSDL_VIEW A :] 
| GenericHdrPrompt[PSDL_VIEW A :] 

| GenericHdr[PSDL_VIEW A : ..] 


generic_formal_part : GenericNil[PSDL_VIEW A : “%b”] 
| GenFormalList[PSDL_VIEW A : A [“%n”] A “%n”] 


generic formal : EmptyGenFormal[PSDL_VlEW A :] 

| GenParai[PSDL_VIEW A :.. “ : GenericValue”] 

| GenTypeParmflPSDLVIEW A : A : GenericType”] 

| GenProcParm[PSDL_VIEW A : A : GenericProcedure”] 

| GenFuncParm[PSDL_VlEW A : A .“ : GenericFunction"] 

| GenPkgParaiBox[PSDL_VIEW A : ....] 

| GenPkgParm[PSDL_VIEW A : .. ..] 

| GenUseparm[PSDL_VlEW A : ..] 


generic_discrim_part_opt: GenDiscOptNull[PSDL_VIEW A :] 
| GenDiscOptProrapt[PSDL_VIEW A :] 

| GenDisc[PSDL_VIEW A : ..] 

| GenBox[PSDL_VIEW A :] 


subp_del'ault: SubpDefaultNull[PSDL_VlEW A :] 
| SubpDefaultPrompt[PSDL_VIEW A :] 

| SubpDefName[PSDL_VIEW A : ..] 

| SubpDetBox[PSDL_VIEW A :] 


genenc type def: Empty GenTypeDef[PSDL_VIEW A :] 
| GenTypeBoxfPSDL VIEW A :] 

| GenTypeRangeBox[PSDL_VIEW A :] 

| GenTypeModBox[PSDL_VIEW A :] 
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component s : ComponentNil[PSDL_VIEW A ] 

| ComponentList[PSDL_VIEW A : A [“%n%n”] A ] 


component: CompDataType[PSDL_VIEW A : A ] 
| CompOperator[PSDL_VlEW A : A ] 


data type : DataType[PSDL_VTEW A : "%S(Keyword:TYPE%S) “ A “%n” A A ] 


type_spec : TypeSpec[PSDL_VlEW A : “%S(Keyword:SPECIFICATION%S)%t%n” 
a a a a “%s(Keyword:%b%nEND%S)%n”] 


generic_type_decl; GTDNil[PSDL_VIEW A : ] 

| GTD_PH[PSDL_VIEW A : ] 

| GTD[PSDL_VIEW A : -'%S(Keyword:GENERIC%S)%t%n” A “%b%n”] 


type_decl_opt : TDO_NiI[PSDL_VIEW A :] 
| TDO_PH[PSDL_VIEW A :] 

| TDO[PSDL_VEW A : A “%n” ] 


op_list_opt: OLO_Nil[PSDL_VlEW A :] 

| OLO_Cons[PSDL_VIEW A : A [“%n”] A ] 


operator : EmptyOperator[PSDL_VIEW A : ] 

| PsdlOp[PSDL_VIEW A : -%S(Keyword:OPERATOR%S) “ A “%n” A ] 


operatorimp : OperatorImp[PSDL_VlEW A : A “%n” A ] 


operator spec : OpSpec[PSDL_VlEW A : “%S(Keyword:SPECIFICATION%S)%t” A 
"%S(Keyword:%b%nEND%S)%n”] 


interface_s : Interface_s_Nil[PSDL_VIEW A :] 
| Interface!, ist [PSDL_VIEW A : A A ] 


interface : Empty Interface[PSDL_VIEW A :] 
| Interface[PSDL_VIEW A : - %n” A A ] 


attribute : Generics[PSDL_VIEW A : "%S(Kevword:GENERIC%S)%t%n A "%b”] 
| Inputs[PSDL_VIEW A : •%S(Keyword:iNPUT%S)%t%n” A '%b”] 



| Outputs[PSDL_VIEW A "%S(Keyword:OUTPUT%S)%t%n" A ‘%b ’] 

| States[PSDL_VIEW A : '%S(Keyword:STATES%S)%t%n'' A 
“%S(Keyword:INITIALL Y%S)%n" A "%b”] 

I Excpts[PSDL_VIEW A ‘%S(Keyword:EXCEPTIONS%S)%t%n” A “%b”] 

| MET[PSDL_VIEW A : -‘%S(Key word:MAXIMUM EXECUTION TIME%S) “ A ] 


type_decl_s : TypeDec!Nil[PSDL_VIEW @ :] 

| TypeDeclList[PSDL_VIEW @ ::= A [“.“/on"] @] 


type_decl_s2 : TypeDeclNil2[PSDL_VIEW @ :] 

| TypeDeclList2[PSDL_VIEW @ ::= A [‘\ “] @] 


type_decl: TypeDeclPSDL[PSDL_VIEW @ ::= “ : “ @] 

| EmptyTypeDecl[PSDL_VIEW @ :] 


type name : EmptyTypeName[PSDL_VIEW @ :] 
| TN_Id[PSDL_VIEW A : A ] 

| TN_Array[PSDL_VIEW A ; A “[“ A 


reqmts trace : RqmtsNil[PSDL_VIEW A :] 

| Rqmts_PH[PSDL_VIEW A :] 

/* | Rqmts[PSDL_VIEW A : “%S(Keyword:BY REQUIREMENTS%S) “ ..]*/ 


functionality . FuncNil[PSDL_VIEW A :) 

| FuncPH[PSDL_VIEW A :] 

/* | Functionality[PSDL VIEW A :.]*/ 


keywords : KW_Nil[PSDL_VIEW A :] 

| KW_PH[PSDL_V1EW A :] 

| Key words [PSDL_VIEW A : “%S(Keyword:KEYWORDS%S) “ ..] 


informal desc : ID_Nil[PSDL_VIEW A :] 

| ID_PH[PSDL_V1EW A :] 

| IntDesc[PSDL_VlEW A : ‘%S(Keyword:DESCRIPTION%S)%t%n’-.. “%b%n] 


formal desc : FD_Nil[PSDL_VlEW A :] 

I FD_PH[PSDL_VIEW A :] 

| FormalDesc[PSDL_VIEW A : "%S(Kevword:AX10MS%S)%t%n' - .. “%b%n”] 
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typeimpl: AdaTypeImp[PSDL_VIEW A : 

%S(Key word IMPLEMENTATION ADA%S) “ 

A “%S(Keyword:%nEND%S)%n”] 

/* | Typeimpl [PSDL_VIEW A : ‘%S(Keyword: IMPLEMENTAT10N%S) “ 

.. ‘%S(Keyword:%nEND%S)%n”]*/ 


operatorimpl: AdaOpImpfPSDLVlEW A : 

"%S(Key word IMPLEMENTATION ADA%S) “ 
A “%S(Keyword:%ri£ND%S)%n"] 

| EmptyImpl[PSDL_VIEW A :] 

/* | PsdlOpImpl [PSDL_VIEW A : “%S(Keyword: IMPLEMENTATION%S) 

.. “%S(Keyword:%nEND%S)%n”]*/ 


initial_expression_list: InitExpNiI[PSDL_VIEW A :] 
| InitExpListjPSDL VIEW A : A [“, “] A ] 


initialexpression : ExpTrue[PSDL_VIEW A : “True”] 
| ExpFalse[PSDL_VIEW A : “False”] 

| Expint [PSDL_VIEW A : A ] 

| ExpReal [PSDL_VIEW A : A ] 

| ExpStrfPSDL VIEW A : A ] 

| Expld [PSDL_VIEW A : A ] 

| ExpType[PSDL_VIEW A : A A A ] 

| ExpInitExp[PSDL_VIEW A : “(“ A “)”] 

| ExpBinOp[PSDL_VIEW A : A A A ] 

| ExpUnary [PSDL VIEW A : A A ] 


opt_init_exp_list: optListNil[PSDL_VIEW A :] 
| optListPrompt[PSDL_VIEW A :] 

| optList[PSDL_VIEW A : “(“ A “)”] 


binar\'_op : PsdlAnd[PSDL_VIEW A : “%S(Keyword: AND%S) “] 
| PsdlOr[PSDL_VIEW A : “%S(Keywotd: OR%S) “] 

| PsdlXor[PSDL_VIEW A : “%S(Keyword: XOR%S) “] 

| PsdlLT[PSDL_VIEW A : “ < “] 

I PsdlGT[PSDL_VIEW A : “ > “] 

| PsdlEQ[PSDL_VIEW A :” = “] 

| PsdlGTEQfPSDL VIEW A : “ >= “] 

| PsdlLTEQ[PSDL_VIEW A : “ <=“] 

I PsdlNE [PSDL_VIEW A : “ /= “] 

| PsdlAdd[PSDL_VlEW A : “ + “] 

| PsdlSub[PSDL_VIEW A : ' - "] 

| PsdICat[PSDL_VIEW A : ” & '] 

| PsdlMulfPSDL VIEW A : •■ * • ] 

| PsdlDiv[PSDL_VIEW A ” /"] 

| PsdlMod[PSDL_VIEW A : •%S(Kevword: MOD%S) “] 




I PsdlRem[PSDL_VIEW A : -%S(Keyword: REM%S) “] 
| PsdlExp[PSDL_VIEW A : - ** -] 


ry op : Psd!Not[PSDL_VIEW A : *%S(Keyword:NOT%S) “] 
I PsdlAbsfPSDLVIEW A : “%S(Keyword:ABS%S) “] 

| PsdINeg[PSDL_VIEW A : 

| PsdlPos[PSDL_VTEW A : “+"] 


e_unit : TimeuSec[PSDL_VIEW A : A ‘%S(Key word: MICROSEC%S)”] 
| TuneMs[PSDL VIEW A : A “%S(Keyword: MS%S)”] 

| TiraeSec[PSDL_VlEW A : A ‘%S(Keyword: SEC%S)”] 

| TimeMin[PSDL_VIEW A : A -%S(Keyword: MIN%S)”] 

| TimeHrs[PSDL_VIEW A : A “%S(Keyword: HOURS%S)”] 
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APPENDIX C. SSL SOURCE CODE: ATTRIBUTE FUNCTIONS 


The source code below is used to compute the attributes of Ada 95 productions 
These attributes are are specified as productions within the PSDL language Once 
computed each attribute is displayed according to the unparsing rules for PSDL 


tor: Chris Eagle 

em: Sun SPARCstation 

;ription: This file contains functions which compute the 

attribute for Ada 9x productions. These attributes are 
in turn PSDL productions, which when displayed provide 
the Ada 9x to PSDL translation. 


subprog_spec { 

inh psdl_met_opt met; 


procedure to indicate whether the input subprog spec is 
an Ada Procedure specification, or a Function specification 
Return = 1 for ss = Procedure spec 
Return = 0 for ss = Function spec 


INT IsProcSpec(subprog_spec ss) { 
with (ss) ( 

SubProgProc(*,*): 1, 
default : 0 


/* procedure to indicate whether the input decl is 
/* an Ada Procedure declaration, or some other declaration 
/* Return = 1 for d = Procedure decl 
/* Return = 0 for d = other decl 

INT IsProcDecl(decl d) { 
with (d) ( 

SubProgDecl(sd): with (sd) ( 

SubprogSpec(*,ss,*) : IsProcSpec(ss), 
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/* fuction to count the number of declarations in the input 
/* decl_item_s list which will translate to PSDL operators 
/* Return value = number of decls that will become PSDL operators 

INT CountOps(decl_item_s dis) { 
with (dis) ( 

DeclListNil: 0, 

DeclList(di, rest) : with (di) ( 

Decl(d) : with (d) ( 

SubProgDecl(*) : IsProcDecl(d) + CountOps(rest), 

PkgDecl(pd): with (pd) ( 

PkgSpec(gh, ps): with (ps) ( 

Package(cn, ds, pp): (CountOps(ds) = 1 ? 1 : 0) + 
CountOps(rest) 

). 

default : CountOps(rest) 

), 

RenameDecl(rd): with (rd) ( 

RenameUnitDecl(iu) : with (ru) ( 

RenameSubprogf*, ss, *): IsProcSpec(ss) + CountOps(rest), 
default: CountOps(rest) 

), 

default: CountOps(rest) 


default: CountOps(rest) 


default: CountOps(rest) 


identifier MarkToId(mark m) { 
with (m) ( 

EmptyMark: IdNull, 
Mark(i,*): i 


type_name PSDLTypeName(mark m) { 
with (m) ( 

EmptvMark : EmptyTvpeName, 
Mark(i, *): TNJd(i) ' 


type decl PSDLTvpeDecl(param p) { 



with (p) ( 

EmptyParam : EmptyTypeDecl, 

Paramld(dis, *, m, *): TypeDecLPSDL(dis,PSDLTypeName(m)) 


/* function to return a parameter list containing only the parameters 
/* in p which are of type IN or IN OUT 

type_decl_s Extractlns(param_s p) { 
with (p) ( 

ParamNil : TypeDeclNil, 

ParamList(parm, ps): 
with (parm) ( 

Paramld(d, md, mk, *): 
with (md) ( 

OutMode: Extractlns(ps), 

AccessMode: Extractlns(ps), 
default: PSDLTypeDecl(parm)::Extract]ns(ps) 

). 

EmptyParam : Extractlns(ps) 


/* function to create the INPUTS portion of a PSDL operator 
/* specification given an input formal parameter list 

interface MakeInputs(formal_part_opt fp) { 
with (fp) ( 

FormalPart(p); with (Extractlns(p)) ( 

TypeDeclNil: Emptylnterface, 

TypeDeclList(*, *): Interface(Inputs(ExtractIns(p)),RqmtsNil) 

)■ 

default : Emptylnterface, 


/* function to return a parameter list containing only the parameters 
/* in p which are of type OUT or IN OUT 

type decl s ExtraetOuts(param_s p) { 
with (p) ( 

ParamNil : TypeDeclNil, 

ParamList(parm, ps): 
with (parm) ( 

Paramld(d, md, mk, io) : 
with (md) ( 

OutMode: PSDLTypeDecl(parm)::ExtractOuts(ps), 
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InOutMode: PSDLTypeDecl(parm)::ExtractOuts(ps), 
default: ExtractOuts(ps) 

), 

EmptyParam : ExtractOuts(ps) 


/* function to create the OUTPUTS portion of a PSDL operator 
/* specification given an input formal parameter list 

interface MakeOutputs(formal_part_opt fp) { 
with (fp) ( 

FormalPart(p) : with (ExtractOuts(p)) ( 

TypeDeclNil: Empty Interface, 

TypeDeclList(*, *): Interface(Outputs(ExtractOuts(p)),RqmtsNil) 

), 

default : Empty Interface, 


/* function to create the MET portion of a PSDL operator given 
/* an input psdl_met_opt from an Ada program 

interface MakeMet(psdl_met_opt pmo) { 
with (pmo) ( 

MetUsec(i): Interface(MET(TimeuSec(i)),RqmtsNil), 
MetMs(i) : Interface(MET(TimeMs(i)),RqmtsNil), 
MetSec(i): Interface(MET(TimeSec(i)),RqmtsNil), 
MetMin(i) : Interface(MET(TimeMin(i)) > RqmtsNil), 
MetHrs(i) : Interface(MET(TimeHrs(i)),RqmtsNil), 
default : Empty Interface 
) 

}; 

identifier ModeToId(mode m) { 
with (m) ( 

OutMode : Ident("out"), 

InOutMode: Ident("in_out"), 

AccessMode : Ident(”access"), 
default: Ident("in") 


typedecl PSDLProcParm(param p) { 
with (p) ( 

Paramld(dis, md, mk, *) : 

TypeDeclPSDL(dis,TN_An-ay(ModeToId(md), 

TypeDeclPSDL(Ident("t'')::DefIdNil, 
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TN_Id(MarkToId(mk)))::TypeDeclNil2)), 
EmptyParam : EmptyTypeDecl 


type_decl_s2 ProcParmsToTypeDeclS(param_s p) { 
with (p) ( 

ParamNil: TypeDeclNil2, 

ParamList(parm, ps): 
with (parm) ( 

Paramld(d, md, mk, *): 

PSDLProcPaim(parm) :ProcParmsToTypeDeclS(ps), 
EmptyParam : ProcParmsToTypeDeclS(ps) 


typename ProcTypeName(formal_part_opt fpo) { 
with (fpo) ( 

FormalPart(p): 

TN_Array(Ident(“PROCEDURE”),ProcPaimsToTypeDeclS(p)), 
default: TN_Id(Ident(“PROCEDURE”)) 

) 

}; 


identifier NameToIdent(name n) { 
with (n) ( 

EmptyName : IdNull, 
SimpleName(i): i, 
OperatorSymbol(os): Ident(os), 
default: Ident(“DefaultId”) 


type_decl_s2 RetumDecl(name n) { 

TypeDeclPSDL(Ident(“RETURN”)::DefIdNil,TN_Id(NameToIdent(n)))::TypeDeclNil2 

type_decl_s2 FuncParmsToTypeDeclS(param_sp) { 
with (p) ( 

ParamNil : TypeDeclNil2, 

ParamList(parm, ps): 
with (parm) ( 

Paramld(d, md, mk, io) : 

PSDLTypeDecl(parm)::FuncParmsToTypeDeclS(ps), 
EmptyParam : FuncParmsToTypeDeclS(ps) 


type name FuncTypeName(formal_part_opt fpo, name n) { 
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with (fpo) ( 

FomialPart(p): 

TN_Airay(Ident(“FUNCTION”),FuncPannsToTypeDeclS(p)@RetuniDecl(n)), 

default: TN_Array(Ident(“FUNCTION”),ReturnDecl(n)) 


typedecl MakeProcDecl(identifier i, formal_part_opt fpo) { 
TypeDeclPSDL(i::DefldNil,ProcTypeName(fpo)) 


STR CompoundToStr(corapound_name cn, STR sep) { 
with (cn) ( 

EmptyCompound : 

DotCompound(id, rest) : with (id) ( 

IdNull: CompoundToStr(rest, sep), 

Ident(i) : with (rest) ( 

EmptyCompound: i, 

DotCompound(*,*) : i#sep#CompoundToStr(rest,sep) 


identifier CompoundToId(compound_name cn) { 

ldent(CompoundToStr(cn,”_”)) 


identifier DesigToId(designator d) { 
with (d) ( 

DesigCompound(cn): CompoundToId(cn), 
DesigString(s): Ident(“func_”#s), 

Empty Designator: Ident(““) 


type_decl MakeFuncDecl(designator d, formal_part_opt fpo, name n) { 
TypeDeclPSDL(DesigToId(d)::DefldNil,FuncTypeName(fpo,n)) 


type_decl MakePSDLTypeDecl(identifier i, STR s) { 
TypeDeclPSDL(i::DefIdNil,TN_Id(Ident(s))) 

}:• 

type name CompSubDefToTN(component_subtype_def csd) { 
with (csd) ( 

CompSubtypeDef(*,si): with (si) ( 

SubtypeIndConstrainl(n,*): TN_Id(NameToIdent(n)), 
SubTypelndName(n): TN_ld(NameToIdent(n)), 
defaut: TN_ld(Ident("UNDEF_TYPE")) 



type_name IndexsToTN(index_s idx) { 
with (idx) ( 

IndexList(n,*): TN_Id(NameToIdent(n)), 
default: TN_Id(Ident("UNDEFINED_TYPE")) 


type_decl_s2 ConstrTypeDecl(iter_discrete_range_s iter, componentsubtypedef csd) { 
TypeDeclPSDL(Ident(''ARRAY_ELEMENT")::DefldNil,CompSubDefToTN(csd))::( 
TypeDeclPSDL(Ident(”ARRAY_INDEX")::DefIdNil, 
TN_Id(Ident("RANGE”)»::TypeDeclNil2) 


type_decl_s2 UnConstrTypeDecl(index_s idx, component_subtype_def csd) { 

TypeDeclPSDL(Ident("ARRAY_ELEMENT”)::DefldNil,CompSubDefToTN(csd))::( 

TypeDeclPSDL(Ident("ARRAY_INDEX")::DendNil,IndexsToTN(idx)):: 

TypeDeclNil2) 


type_decl MakeArrayDecl(identifier i, array type a) { 
with (a) ( 

UnconstrArray(ind, csd): TypeDeclPSDL(i::DefIdNil, 

TN_Array(Ident(" ARRAY"), UnConstrTypeDecl(ind,csd))), 
ConstrArray(iter, csd): TypeDeclPSDL(i::DefldNil, 

TN_Array(Ident(" ARRAY"), ConstrTypeDecl(iter, csd))), 
default : EmptyTypeDecl 


/* function to examine a single generic formal parameter from an Ada */ 

/* program and determine if it will become a parameter in the PSDL */ 

/* generic parameter list. The inpput generic_formal is examined *1 

/* and placed at the tail of the input param s list if it maps to */ 

/* PSDL. The remainder of the genenc formals ate transformed by */ 

/* passing rest to PsdlGeneric */ 

type_decl MakeParam(generic_formal gf) { 
with (gf) ( 

GenProcParm(i, fpo, sd): MakeProcDecl(i,fpo), 

GenFuncParm(d, fpo, n, sd): MakeFuncDecl(d,fpo,n), 

GenTypeParm(i, gdpo, gtd): with (gtd) ( 

GenTypeBox : MakePSDLTypeDecl(i,”DISCRETE_TYPE"), 

GenTypeRangeBox: MakePSDLTypeDecl(i,”RANGE_TYPE”), 
GenTypeModBox: MakePSDLTypeDecl(i,”MOD_TYPE”), 

GenTypeDeltaBox : MakePSDLTypeDecl(i,’’DELTA TYPE”), 
GenTypeDeltaDigBox : MakePSDLTypeDecl(i,”DELTA_DIGITS_TYPE”), 
GenTypeDigitsBox: MakePSDLTypeDecl(i,”DIGITS_TYPE”), 

GenTvpeArray(a): MakeArrayDecl(i.a), 

GenTypeAccess(at): MakePSDLTypeDecl(i,”ACCESS_TYPE"), 
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GenTypePrivC) : MakePSDLTypeDecl(i,”PRIVATE_TYPE”), 
GenTypeDerived(gdt) : MakePSDLTypeDecl(i, 
“GENERIC_DERIVED_TYPE"), 
default: EmptyTypeDecl 
), 

/* PSDL does not currently allow value parameters as generic formals 
/* if that changes, the following lines must be uncommented to 
/* provide the translation 
/* 

GenParm(p): with (p) ( 

Paramldfid,*,*,*): MakePSDLTypeDecl(id,”GENERIC_VALUE”), 
default: Empty TypeDecl 


default : Empty TypeDecl 


/* function to build a list of generic parameters for a PSDL component 
/* specification given an input list of Ada generic formal parameters 

type_decl_s PsdlGeneric(generic_formal_part gfp) { 
with (gfp) ( 

GenericNil : TypeDeclNil, 

GenFormalList(gf, rest): with (MakeParam(gf)) ( 

Empty TypeDecl : PsdlGeneric(rest), 
default: MakeParam(gf)::PsdlGeneric(rest) 

) 

) 

}; 


/* function to create the PSDL code for a list of Generic 
/* formal parameters 

interface MakeGenerics(generic_formal_part gfp) { 
with (gfp) ( 

GenericNil: Empty Interface, 

GenFormalList(*, *): Interface(Generics(PsdlGeneric(gfp)),RqmtsNil) 


/* create a PSDL generic type declaration from an Ada generic formal 
/* parameter lrst 

generic tvpe decl MakeGenencTypeDecl(generic_formal_part gfp) { 
with (gfp) ( 

GenericNil : GTDNil, 

GenFormalList(*, *): GTD(PsdlGeneric(gfp)) 
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/* build the interfaces portion of a PSDL component specification */ 

/* given input generic formal parameter list, formal parameters, */ 

I* an existing interface portion, and a psdl met from an Ada program */ 

interface s BuildInterfaces(generic_formal_part gfp, formal_part_opt fpo, 
interface e, psdl_met_opt pmo) { 

MakeGenerics(gfp):: Makelnputs(fpo):: MakeOutputs(fpo):: 
e :: MakeMet(pmo):: Interface_s_Nil 


/* Extract all of the exceptions from a list of declarations */ 

def_id_s ExtractExceptions(decl_item_s dl) { 
with (dl) ( 

DeclListNil: DefldNil, 

DeclList(di, rest) : 
with (di) ( 

Decl(dcl): 
with (del) ( 

RenameDecl(rd): with (rd) ( 

RenameExc(ds, *): 

ds @ ExtractExceptions(rest), 
default: ExtractExceptions(rest) 

), 

ExcDecl(dids) : dids @ ExtractExceptions(rest), 
default: ExtractExceptions(rest) 

). 

default: ExtractExceptions(rest) 


/* create the exceptions portion of a PSDL component specification 

interface MakeExcepts(decl_item_s d) { 
with (ExtractExceptions(d)) ( 

DefldNil: Empty Interface, 

DefIdList(*, *): Interface(Excpts(ExtractExceptions(d)),RqmtsNil) 


I* combine two lists of exceptions to form a single list 

interface JoinExcepts(interface il, inter 
with (il) ( 


rface i2) { 






Interface^, r): with (a) ( 

Excpts(d): with (i2) ( 

Interface(a2, r2): with (a2) ( 

Excpts(d2): Interface(Excpts(d @ d2), RqmtsNil), 
default : il 

), 

default: i 1 

), 

default: i2 


/* given an Ada package specification and its generic header 
/* create a PSDL operator specification incorporating the 
/* interfaces e 


operator MakeOpFromPkg(generic_hdr gh, pkg_spec ps, interface e) { 
with (ps) ( 

Package(cn, d, pp): with (gh) ( 

GenericHdr(gfp): with (MakeOpFromPkg(GenericHdrNil, ps. 

Empty Interface)) ( 

PsdlOp(c, os): with (os) ( 

OpSpec(is, f): PsdlOp(c,OpSpec(MakeGenerics(gfp):: is, f)) 


EmptyOperator: EmptyOperator 


default : with (MakeOps(d, JoinExcepts(e,MakeExcepts(d)))) ( 
OLO_Nil: EmptyOperator, 

OLO_Cons(o, rest): o 


/* given an Ada package specification and its generic header, 

/* create a PSDL Type component specification 

component MakeCompFromPkg(generic_hdr gh, pkg_spec ps) { 
with (ps) ( 

Package(cn, d, p): CountOps(d) == 1 ? 

CompOperator(Operatorlmp(MakeOpFromPkg(gh, ps. Empty Interface), 
AdaOpImp(with (MakeOpFromPkg(gh, ps, Emptylnteri'ace))( 
PsdlOp(c.o): c, 

EmptyOperator: EmptvCompound 

)))) 


with (gh) ( 



GenericHdr(gfp): 

CompDataType(DataType(cn,MakeType(ps,gfp),AdaTypeImp(cn))), 
default: 

CompDataType(DataType(cn,MakeType(ps,GenericNil),AdaTypeImp(cn))) 


component_s MakeCompListFromDeclItemS(decl_item_s dis, interface exc) { 
with (dis) ( 

DeclListNil: ComponentNil, 

DeclList(di, rest): with (di) ( 

Decl(dcl): with (del) ( 

SubProgDecl(sd): with (sd) ( 

SubprogSpec(gh, ss, pmo): 

MakeCompOpFromSubprog(gh, ss, pmo, exc)@ 
MakeCompListFromDeclItemS(rest, exc), 

default . MakeCompListFromDecIItemS(rest,exc) 

). 

PkgDecl(pd): with (pd) ( 

PkgSpec(gh, ps): MakeCompFromPkg(gh,ps):: 
MakeCompListFromDeclItemS(rest,exc), 

default: MakeCompListFromDeclltemS(rest,exc) 

), 

default: MakeCompListFromDeclltemS(rest,exc) 


default: MakeCompListFromDeclItemS(rest,exc) 


BOOL NestedTypes(decl_item_s dis) { 
with (dis) ( 

DeclListNil: false, 

DeclList(di, rest): with (di) ( 

Decl(d): with (d) ( 

PkgDecl(pd): with (pd) ( 

PkgSpec(gh, ps) : with (ps) ( 

Package(cn, ds, pp): 

CountOps(ds) != 1 ? true : NestedTypes(rest) 

), 

default: NestedTypes(rest) 


default : NestedTypes(rest) 

). 

default : NestedTypes(rest) 
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component s MakeCompListFromPkg(generic_hdr gh, pkg_spec ps) { 
with (ps) ( 

Package(cn, dis, p): NestedTypes(dis) ? 
MakeCompListFromDeclItemS(dis,MakeExcepts(dis)): 
MakeCompFromPkg(gh,ps)::ComponentNil 


/* given an input subprogram specification, its generic header, 
/* its MET, and existing interfaces, create a PSDL operator 
/* specification 


operator MakeOpFromSubprog(generic_hdr gh, subprog_spec ss, 
psdlmetopt pmo, interface e) { 
with (gh) ( 

GenericHdr(gfp): with (ss) ( 

SubProgProc(c, f) : PsdlOp(c, OpSpec(BuildInterfaces(gfp, 
f, e, pmo), FuncNil)), 
default : Empty Operator 


default: with (ss) ( 

SubProgProc(c, 0 : PsdlOp(c, OpSpec(BuildInterfaces(GenericNil, 
f, e, pmo), FuncNil)), 
default: EmptyOperator 

) 


components MakeCompOpFromSubprog(generic_hdr gh, subprog_spec ss, 
psdl_met_opt pmo, interface e) { 
with (ss) ( 

SubProgProc(c, f): CompOperator(Operatorlmp( 
MakeOpFromSubprog(gh,ss,pmo,e),AdaOpImp(c)))::ComponentNil, 
default: ComponentNil 


/* create a list of PSDL operators from a list of Ada declarations 
/* incorporating the exceptions specified in exc 

opjist opt MakeOps(decl_item_s d, interface exc) { 
with (d) ( 

DeclListNil : OLO_Nil, 

DeclList(di, rest) : with (di) ( 

Decl(dcl) : with (del) ( 

SubProgDecl(sd) : with (sd) ( 

SubprogSpec(gh, ss, pmo): 

MakeOpFromSubprog(gh, ss, pmo, exc):.MakeOps(rest, exc), 
default: MakeOps(rest.exc) 



), 

PkgDecl(pd): with (pd) ( 

PkgSpec(gh, ps): with (ps) ( 

Package(cn, ds, pp): CountOps(ds) == 1 ? 

akeOpFromPkg(gh, ps, exc):: akeOps(rest,exc ) 

MakeOps(rest.exc) 

), 

default: MakeOps(rest.exc) 

), 

default : MakeOps(rest.exc) 

), 

default: MakeOps(rest.exc) 


type_spec MakeType(pkg_spec ps, generic_formal_part gfp) { 
with (ps) ( 

Package(c, d, p): TypeSpec(MakeGenericTypeDecl(gfp), 
TDO_Nil, MakeOps(d, MakeExcepts(d)), FuncNil) 


subprog decl: SubprogSpec{ 

subprogspec.met = psdlmetopt; 

> 

| GenericSubprogInst{ 

subprog_spec.met = psdl_met_opt, 

} 

| Abstract Subprog Spec{ 

subprogspec.met = psdl_met_opt. 


pkg_decl: 

PkgSpecf 

local components psdl_trans; 
psdltrans = ($$.nesting_level = 0) ? 

MakeCompL istFromPkg( generic hdr, pkg_spec) 
ComponentNil; 


rename_unit: RenameSubprog{ 

subprog_spec.met = MetNull; 


prot op decl : ProtOptSubprog { 

subprog_spec.met = MetNull; 





body_stub : SubprogStub{ 

subprogspec.met = MetNull 



APPENDIX D. SSL SOURCE CODE: CONCRETE SYNTAX 


The source code below is used to specify the concrete syntax of Ada 95 package 
specifications. A complete concrete syntax for Ada 95 package specifications allows 
SynGen to construct a parser which will accept existing Ada 95 source code as a text file, 
and create the attributed abstract syntax tree which is required to complete a translation 


/* File: concrete.ada9x.ssl 

/♦Date: 3 March, 1995 

/* Author: Chris Eagle 

/♦ System: Sun SPARCstation 

/♦ Description: This file contains the concrete syntax for the 

/* portion of the Ada 9x language required to produce 
/* package specifications. The concrete syntax allows 

/♦ text data to be read in and converted into an 
/* appropriate abstract syntax tree for an Ada 9x 
/♦ package specification. 


COMPILATION { syn compilation abs; }; 
compilation — COMPILATION.abs; 

C0MP_UN1T_LIST { syn comp_unit_list rev; 

inh comp_unit_list tail; }; 
comp_unit_list ~ COMP_UNIT_LIST.rev 

{COMP_UNIT_LIST.tail = CUListNil;}; 

PRAGMA { syn pragma abs; }; 
pragma ~ PRAGMA.abs; 

PRAGMA_ARG_S { syn pragma_arg_s rev; 

inh pragma_arg_s tail; }; 
pragmaargs ~ PRAGMA_ARG_S.rev 

{PRAGMA_ARG_S.tail = PragmaArgNil;}; 

PRAGMAARG { syn pragma arg abs; }; 
pragmaarg ~ PRAGMAARG.abs, 


PRAGMA_S { syn pragma s rev; 

inh pragma_s tail; }; 
pragmas ~ PRAGMA_S.rev 

{PRAGMA_S.tail = PragmasNil;}; 


DECL { s\'n decl abs; }; 
decl ~ DECL.abs; 





DEF ID S { syn def_id_s rev; 

inh def_id_s tail; }; 
def_id_s - DEF_ID_S.rev 

{DEF_ID_S.tail = DefIdNil;}; 

OBJECT_QUALIFIER_OPT { syn object_qualifier_opt abs;}; 
object_qualifier_opt ~ OBJECT_QUALIFIER_OPT.abs; 

OBJECT_SUBTYPE_DEF { syn object_subtype_def abs; }; 
object_subtype_def ~ OBJECT_SUBTYPE_DEF.abs; 

INIT_OPT { syn initopt abs; }; 
init_opt - INITOPT.abs; 

DISCRIM_PART_OPT { syn discrim_part_opt abs; }; 
discrim_part_opt ~ DISCRIM_PART_OPT.abs; 

TYPE_COMPLETION { syn type_compIetion abs; }; 
type_completion ~ TYPE_COMPLETION.abs; 

TYPE_DEF { syn type_def abs; }; 
type_def ~ TYPE_DEF.abs; 

SUBTYPE IND { syn subtype_ind abs; }; 
subtype_ind ~ SUBTYPE_IND.abs; 

CONSTRAINT { syn constraint abs; }; 
constraint ~ CONSTRAINT.abs; 

DERIVED_TYPE { syn derived_type abs;}; 
derivedtype ~ DERIVED_TYPE.abs; 

RANGE_CONSTRAINT { syn range constraint abs; }; 
range_constraint ~ RANGE_CONSTRAINT.abs; 

RANGE { syn range abs; }; 
range ~ RANGE.abs; 

ENUM_ID_S { syn enum_id_s rev; 

inh enum_id_s tail;}; 
enum_id_s~ENUM_ID S.rev 

{ENUM_ID_S.tail = EnumldNil;}; 

ENUMJD { syn enum_id abs; }; 
enumid ~ ENUMJD.abs; 

INTEGER_TYPE { syn integer type abs; }; 
integer_type ~ INTEGER_TYPE.abs; 

RANGE_SPEC { syn range spec abs; }; 



rangespec ~ RANGESPEC.abs; 


RANGESPECOPT { syn range_spec_opt abs; }; 
range_spec_opt ~ RANGESPECOPT.abs; 

REAL_TYPE { syn real_type abs; }, 
reaitype ~ REALTYPE.abs; 

FIXED_TYPE { syn fixedtype abs; }; 
fixed_type ~ FIXEDTYPE.abs; 

ARRAY_TYPE { syn array type abs; }; 
array type ~ ARRAY_TYPE.abs; 

COMPONENT SUBTYPE DEF { syn component_subtype_def abs; }; 
component_subty pedef ~ COMPONENT_SUBTYPE_DEF.abs; 

ALIASED_OPT { syn aliased_opt abs; }, 
aliased_opt ~ ALIASEDOPT.abs; 

INDEX_S { syn index s rev; 

inh index_s tail;}; 
index_s ~ INDEX_S.rev 

{INDEX_S.tail = IndexNil;}; 

ITER_DISCRETE_RANGE_S { syn iter discrete range s rev, 
inh iter_discrete_range_s tail; }; 
iter_discrete_range_s ~ ITER_DISCRETE_RANGE_S.rev 

{ITER_DISCRETE_RANGE_S.tail = DiscreteRangeNil;}; 

DISCRETE RANGE { syn discrete range abs;}; 
discrete_range ~ DISCRETE_RANGE.abs; 

RANGE_CONSTR_OPT { syn range_constr_opt abs; }; 
rangeconslropt ~ RANGECONSTROPT.abs; 

RECORD_DEF { syn record_def abs; }; 
record_def~ RECORD_DEF.abs; 

TAGGED OPT { syn tagged_opt abs; }; 
tagged_opt ~ TAGGEDOPT.abs; 

COMP LIST { syn compjist abs; }; 
compjist ~ COMP_LIST.abs; 

COMP_DECL_S { syn comp_decl_s abs;}; 
comp decl s ~ COMP DECL S.abs; 


VARIANT_PART_OPT { syn variant_part_opt abs; }; 
variant_part_opt ~ VARIANT PART OPT.abs; 





COMP DECL { syncompdecl abs; }; 
comp_decl ~ COMP_DECL.abs; 

DISCRIM_SPEC_S { syn discrim_spec_s rev; 

inh discrim_spec_s tail;}; 
discrim_spec_s ~ DISCRIM_SPEC_S.rev 

{DISCRIMJSPECS.tail = DisorimSpecNil;}; 

DISCRIM_SPEC { syn discrim_spec abs; }; 
discrim_spec - DISCRIMjSPEC.abs; 

ACCESS_OPT { syn accessopt abs;}; 
accessopt ~ ACCESS_OPT.abs; 

VARLANT_PART { syn variant_part abs; }; 
variant_part ~ VARIANT PART.abs; 

VARIANT_S { syn variant s rev, 
inh variant s tail; }; 
variants ~ VARIANT_S.rev 

{VARLANT_S.tail = VariantNil;}; 

VARIANT { syn variant abs; }; 
vanant ~ VARIANT.abs; 

CHOICE_S { syn choice_s rev; 

inh choice s tail; }; 
choices ~ CHOICE_S.rev 

{CHOICES.tail = ChoiceNil;}; 

CHOICE { syn choice abs;}, 
choice ~ CHOICE.abs; 

DISCRETE_WITH_RANGE { syn discrete_with_range abs; }; 
discrete_with_range ~ DISCRETE_WITH_RANGE.abs; 

ACCESS TYPE { syn access_type abs; }; 
accessjype ~ ACCESS_TYPE.abs; 

PROT_OPT { syn prot opt abs; }; 
protopt ~ PROT_OPT.abs; 

DECL_ITEM_S { syn decl_item_s rev; 

inh decl_item_s tail; }; 
decl_item_s~ DECL_ITEM_S.rev 

{DECL _ITEM_S.tail = DecllistNil;}; 

DECL_ITEM { syn decljtem abs;}; 
decl_item ~ DECLJTEM.abs; 

NAME { syn name abs. }. 
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e ~ NAME.abs, 


MARK { synmarkabs; ); 
mark ~ MARK.abs; 

TICDOT { syn ticdot abs;}; 
ticdot ~ TICDOT.abs; 

MARKLIST { syn marklist abs; }; 
marklist ~ MARKLIST.abs; 

COMPOUND_NAME { syn compoundname rev; 

inh compound name tail; } ; 
compoundname ~ COMPOUNDNAME.rev 

{COMPOUND_NAME.tail = EmptyCompound;}; 

C_NAME_LIST { syn c_name_list rev; 

inh c_name_list tail; }; 
c_name_list ~ C_NAME_L I ST. rev 

{CNAMELIST.tail = CompoundNameNil;}; 

VALUE_S { syn value_s rev; 

inh value_stail; }; 
value_s ~ VALUES.rev 

{VALUE_S.tail = ValueNil;}; 

VALUE { syn value abs; }; 
value ~ VALUE.abs; 

SELECTEDCOMP { syn selected_comp abs; }; 
selectedcomp ~ SELECTED_COMP.abs; 

ATTRIBUTE_ID { syn attribute_id abs;}; 
attributejd ~ ATTRIBUTEJD.abs; 

NUMERIC_LIT { syn numeric lit abs; }; 
numeric lit ~ NUMERlC LIT.abs; 

LITERAL { syn literal abs; }; 
literal ~ LITERAL.abs; 

AGGREGATE { syn aggregate abs; }; 
aggregate ~ AGGREGATE.abs, 

VALUE_S_2 { syn value_s_2 abs. >; 
value_s_2 ~ VALUE_S_2.abs; 

COMP ASSOC { syn comp assoc abs; 
compassoc ~ COMP_ASSOC.abs; 

EXPRESSION { syn expression abs; }; 
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expression ~ EXPRESSION.abs; 

RELATION { syn relation abs; }; 
relation ~ RELATION.abs; 

SIMPLE_EXPRESSION { syn simpleexpression abs; }; 
simple_expression - SIMPLE EXPRESSION.abs; 

TERM { syn term abs; }; 
term ~ TERM, abs; 

FACTOR { syn factor abs; }; 
factor ~ FACTOR.abs; 

PRIMARY { syn primary abs; }; 
primary ~ PRIMARY.abs; 

QUALIFIED { syn qualified abs; }; 
qualified ~ QUALIFIED.abs; 

ALLOCATOR { syn allocator abs;}; 
allocator ~ ALLOCATOR.abs; 

SUBPROG_DECL { syn subprog_decl abs; }; 
subprogdecl ~ SUBPROG_DECL.abs; 

PSDL_MET_OPT { syn psdl_met_opt abs; }; 
psdl_met_opt ~ PSDL_MET_OPT.abs; 

SUBPROG_SPEC { syn subprog_spec abs; }; 
subprog spec ~ SUBPROG_SPEC.abs; 

DESIGNATOR { syn designator abs; }; 
designator ~ DESIGNATOR.abs; 

FORMAL_PART_OPT { syn formal_part_opt abs; }; 
formal_part_opt ~ FORMAL_PART_OPT.abs; 

PARAM S { syn param_s rev; 

inh param s tail; }; 
params ~ PARAM_S.rev 

{PARAM_S.tail = ParamNil;}; 

PAR AM { syn param abs; }; 
param ~ PARAM abs; 

MODE { syn mode abs. }; 
mode ~ MODE.abs; 


PKG DECL { syn pkg_decl abs; }; 
pkg decl ~ PKG DECL abs; 



PKG_SPEC { syn pkgspec abs; }; 
pkgspec ~ PKG_SPEC abs; 


PRIVATE_PART { syn private_part abs; }, 
private_part ~ PRIVATEPART.abs; 

PRIVATE_TYPE { syn private_type abs; }, 
private_type ~ PRIVATE_TYPE.abs; 

LIMITEDOPT { syn limitedopt abs; }; 
limitedopt ~ LIMITED_OPT.abs; 

USE_CLAUSE { syn use_ciause abs; }, 
useclause ~ USE_CLAUSE.abs; 

NAME S { syn name s rev; 

inh name s tail;}; 
name_s ~ NAMES.rev 

{NAME_S.tail = NameNil;}; 

RENAMEDECL { syn rename_decl abs, }, 
renamedecl ~ RENAMEDECL.abs; 

RENAME_UNIT { syn rename unit abs; }; 
renameunit ~ RENAMEUNIT.abs; 

RENAMES { syn renames abs; J; 
renames ~ RENAMES.abs; 

TASK SPEC { syn task_spec abs;}; 
task spec ~ TASK_SPEC.abs; 

TASK_DEF { syn task_defabs; }; 
task_del'~ TASK DEF.abs; 

TASK_PRIVATE_OPT { syn task_private_opt abs; }; 
task_private_opt ~ TASK_PRIVATE_OPT.abs; 

PROT_SPEC { syn prot spec abs; }; 
protspec ~ PROT_SPEC. abs; 

PROT_DEF { syn prot_def abs; } ; 
prot_def ~ PROT_DEF.abs; 

PROT_PRIVATE_OPT { syn prot_private_opt abs, }; 
prot_private_opt ~ PROT_PRIVATE_OPT.abs; 

PROT_OP_DECL_S { syn prot_op_decl_s rev; 

inh prot_op_decl_s tail; }; 
prot_op_decl_s ~ PROT_OP_DECL_S.rev 
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{PROT_OP_DECL_S.tail = ProtOptDeclListNil;}; 

PROTOPJDECL { syn protopdecl abs,} , 
protopdecl ~ PROT_OP_DECL.abs; 

PROT_ELEM_DECL_S { syn prot_elem_decl_s rev; 

inh prot_elem_decl_s tail; }; 
prot_elem_decl_s ~ PROT_ELEM_DECL S.rev 

{PROT_ELEM_DECL_S.tail = ProtElemDeclNil;}; 

PROT_ELEM_DECL { syn protelemdecl abs; }; 
prot_elem_decl ~ PROTELEMJDECL.abs; 

ENTRY_DECL_S { syn entry _decl_s abs;}; 
entry _decl_s ~ ENTR Y_DECL_S. abs; 

ENTRY_DECL { syn entry_decl abs; }; 
entry _decl ~ ENTRY_DECL.abs; 

REP_SPEC_S { syn rep_spec_s abs; }; 
rep_spec_s ~ REP_SPEC_S.abs; 

COMP_UNIT { syn comp unit abs; }; 
comp_unit ~ COMPUNIT.abs; 

PRIVATE OPT { syn private_opt abs; }; 
pnvateopt ~ PRIVATEOPT.abs; 

CONTEXT SPEC OPT { syn context_spec_opt abs; }; 
contextspecopt ~ CONTEXT_SPEC_OPT.abs; 

CONTEXT_SPEC { syn context_spec abs; }; 
contextspec ~ CONTEXT_SPEC.abs; 

WITH_CLAUSE { syn with_clause abs; }; 
withclause ~ WITH_CLAUSE.abs; 

USE_CLAUSE_OPT { syn use_clause_opt rev; 

inh use_clause_opt tail; }; 
use_clause_opt ~ USE_CLAUSE_OPT.rev 

{USE_CLAU SE_OPT.tail = UseClauseOptNil;}; 

BODY_STUB { syn body_stub abs;}; 
body_stub ~ BODY_STUB.abs; 

GENERIC_FORMAL_PART { syn generic_rormal_part rev; 

inh generic_t"ormal_part tail, }; 
generic_formal_part ~ GENERIC_FORMAL_PART.rev 

{GENERIC_FORMAL_PART.tail = GenericNil;}; 

GENERIC_FORMAL { syn generic_fonnal abs; }; 
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genericformal -GENERICFORMAL.abs; 

GENERICDISCRIMPARTOPT { syn generic_discriin_part_opt abs; }, 
generic_discrim_part_opt ~ GENERIC_DISCRIM_PART_OPT.abs; 

SUBP_DEFAULT { syn subpdefault abs; }; 
subpdefault ~ SUBPDEFAULT.abs; 

GENERIC_TYPE_DEF { syn generictypedef abs; }; 
generictypedef ~ GENERICTYPEDEF.abs; 

GENERIC_DERIVED_TYPE { syn generic_derived_type abs; }; 
generic_denved_type~~GENERIC_DERIVED_TYPE.abs; 

GENERIC_INST { syn genericinst abs, }; 
generic inst ~ GENERICJNST.abs; 

REPSPEC { syn rep spec abs; }; 
rep_spec ~ REP_SPEC.abs; 

ALIGN OPT { syn align_opt abs; J; 
alignopt ~ ALIGNOPT.abs; 

COMP_LOC_S { syn comp loc s abs; }; 
comp joc s ~ C OMP_L OC_S. abs; 

INTEGER CS { syn integer abs;}; 
integer ~ INTEGERCS.abs; 

INTEGER_CS ::= (INTEGER) {$$.abs = Integer(INTEGER);} 


COMPILATION ::= 0 {$$.abs = CompilationNil; } 

| (PRAGMA S COMP_UNIT_LIST) { 

PRAGMA_S.tail = PragmasNil; 

COMP_UNIT_LIST.tail = CUListNil; 

SS.abs = Compilation(PRAGMA_S.rev, COMP_UNIT_LIST.rev);} 


COMP_UNIT_LIST ::= (COMP_UNIT) {$$.rev = COMP_UNIT.abs;:$S.tail;} 
| (COMP_UNIT_LIST COMP_UNIT) { 

COMP_UNIT_LIST$2.tail = COMP_UNIT.abs::$$.tail; 

SS.rev = COMP_UNIT_LIST$2.rev; 


PRAGMA ::= (PrAGMA ID V) { SS.abs = PragmaId(Idenl(ID)); } 

| (PrAGMA ID '(' PRAGMA_ARG_S )' •;') { 
PRAGMAARGS.tail = PragmaArgNil, 

SS.abs = PragmaSimple(Ident(ID), PRAGMA_ARG_S.rev); 
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PRAGMAARGS ::= (PRAGMAARG) { SS.rev = PRAGMA_ARG.abs::$$.tail; } 
| (PRAGMA_ARG_S 7 PRAGMA ARG) { 

PRAGMA_ARG_S$2.tail = PRAGMA_ARG.abs::$$.tail; 

SS.rev = PRAGMA_ARG_SS2.rev; 


PRAGMA_ARG ::= (EXPRESSION) { Slabs = PragmaExp(EXPRESSION.abs); > 
| (ID RIGHT SHAFT EXPRESSION) { 

SS.abs = PragmaNameExp(Ident(ID), EXPRESSION.abs); 


PRAGMA_S ::= () { SS.rev = SS.tail; } 

| (PRAGMA_S PRAGMA ) { 

PRAGMA_S$2.tail = PRAGMA.abs::$$.tail; 
SS.rev = PRAGMA_S$2.rev; 

> 


OBJECT_DECL {syn decl abs;}; 

NUMBER DECL {syn decl abs;}; 

TYPE_DECL {syn decl abs;} , 

EXCEPTION_DECL {syn decl abs;}; 

DECL ::= (OBJECT_DECL) {SS.abs = OBJECT_DECL.abs;} 

| (NUMBER_DECL) {SS.abs = NUMBER_DECL.abs;} 

| (TYPE_DECL) {SS.abs = TYPE_DECL.abs;} 

| (SUBTYPE ID IS SUBTYPEJND ■;’) { 

SS.abs = SubTypeDecl(Ident(ID), SUBTYPEJND.abs);} 

| (SUBPROG_DECL) { SS.abs = SubProgDecl(SUBPROG_DECL.abs);} 
| (PKG DECL) { SS.abs = PkgDecl(PKG_DECL.abs); } 

| (TASK_SPEC ‘;’) { SS.abs = TaskDecl(TASK_SPEC.abs);} 

| (PROT SPEC ';’) { SS.abs = ProtDecI(PROT_SPEC.abs); } 

| (EXCEPTION_DECL) {SS.abs = EXCEPTION_DECL.abs;} 

| (RENAME_DECL) { SS.abs = RenameDecl(RENAME_DECL.abs);} 

| (BODY STUB) { SS.abs = BodyStubDecl(BODY_STUB.abs);} 


OBJECT_DECL ::= 

(DEF_ID_S OBJECT_QUALIFIER_OPT OBJECT_SUBTYPE_DEF 
INIT_OPT ’;’) { 

DEF_ID_S.tail = DefldNil; 

SS.abs = ObjDecl(DEF_ID_S.rev, OBJECT_QUALIFIER_OPT.abs, 
OBJECT SUBT YPE_DEF.abs, INIT_OPT.abs); 


NUMBER_DECL :;= (DEF ID S CONSTANT IS_ASSIGNED EXPRESSION ',') { 
DEFIDS.tail = DefldNil; 
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iDecl(DEF_ID_S rev, EXPRESSION.abs); } 


TYPEDECL ::= (TYPE ID DISCRIM_PART_OPT TYPECOMPLETION { 
Slabs = TypeDecl(Ident(ID), DISCRIM_PART_OPT.abs, 
TYPECOMPLETION.abs); 


EXCEPTION_DECL ::= (DEF_ID_S 7 EXCEPTION V) { 
DEF_ID_S.tail = DefldNil; 

$$.abs= ExcDecl(DEF_ID_S.rev); } 


DEF_ID_S ::= (ID) {SS.rev = Ident(ID)::$$.tail;} 

| (DEF_ID_S 7 ID) { DEF_ID_S$2.tail = Ident(ID)::$$.tail; 
SS.rev = DEF_ID_S$2.rev; } 


OBJECT_QUALIFIER_OPT ::=(){ SS.abs = ObjQualOptNull; } 
| (ALIASED) { SS.abs = Aliased(); } 

| (CONSTANT) { SS.abs = Constant?); } 

| (ALIASED CONSTANT) { SS.abs = AliasedConstQ; } 


OBJECT_SUBTYPE_DEF ::= 

(SUBTYPEJND) { SS.abs = Subtypelnd(SUBTYPEJND.abs); } 
| (ARRAY TYPE) { SS.abs = ArrayType(ARRAY_TYPE.abs); } 


INIT_OPT ::= () { SS.abs = InitOptNull();} 

| (IS_ASSIGNED EXPRESSION) { SS.abs = ExprInitOpt(EXPRESSION.abs);} 


DISCRIM_PART_OPT ::=() { SS.abs = DiscrimPartNull(); } 
| (‘(‘ DISCRIM_SPEC_S ‘)’) { 

DISC RIM_SPEC_S. tail = DiscrimSpecNil; 

SS.abs = DiscrimPart(DISCRIM_SPEC_S.rev); } 

| re BOX •)’) { SS.abs = Box();} 


TYPE_COMPLETION ::= () { SS.abs = TypeComplNullO; } 

| (IS TYPE_DEF) { SS.abs = TypeDefCompl(TYPE_DEF.abs); } 


TYPE_DEF ::= (T ENUM_ID_S *)’) f 
ENUM_ID_S.tail = EnumldNil; 

SS.abs = EnumTypeDef(ENUM_ID_S.rev); ) 

| (INTEGER_TYPE) { SS.abs = IntTypeDef(INTEGER_TYPE.abs); } 
| (REAL_TYPE) { SS.abs = RealTypeDef(REAL_TYPE.abs); } 

| (ARRAY_TYPE) { S$.abs= ArrayTypeDef(ARRAY_TYPE.abs); } 

| (TAGGED OPT LIMITED_OPT RECORD DEF) { 
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Slabs = RecordType(TAGGED_OPT.abs, LIMITED_OPT.abs, 

REC ORDDEF. abs); } 

| (ACCESS TYPE) { $$.abs= AccessTypeDef(ACCESS_TYPE.abs); } 

| (DERIVED_TYPE) { SS.abs = DerivedTypeDef(DERIVED_TYPE.abs); } 
| (PRIVATE TYPE) { SS.abs = PrivateTypeDef(PRIVATE_TYPE.abs); } 


SUBTYPE_IND ::= (NAME CONSTRAINT) { 

SS.abs = SubtypeIndConstraint(NAME.abs, CONSTRAINT.abs); } 
| (NAME) { SS.abs = SubTypeIndName(NAME.abs); } 


CONSTRAINT ::= (RANGE_CONSTRAINT) { 

SS.abs = RangeConstraint(RANGE_CONSTRAINT.abs); 

> 

| (DIGITS EXPRESSION RANGE_CONSTR_OPT) { 

SS.abs = DecDigConstraint(EXPRESSION.abs, RANGEJIONSTROPT.abs); 


DERIVED_TYPE ::= 

(NEW SUBTYPEJND) { SS.abs = NewDerivedType(SUBTYPEJND.abs); } 
| (NEW SUBTYPEJND WITH PRIVATE) { 

SS.abs = NewDerivedWithPrivate(SUBTYPEJND.abs); 

} 

| (NEW SUBTYPEJND WITH RECORD_DEF) { 

SS.abs = NewDeri vedWithRecord(SUBT YPEJND. abs, RECORD JJEF.abs); 

} 

| (ABSTRACT NEW SUBTYPEJND WITH PRIVATE) { 

SS.abs = AbsNewDerivedWithPrivate(SUBTYPEJND.abs); ) 

| (ABSTRACT NEW SUBTYPEJND WITH RECORD J5EF) { 

SS.abs = AbsNewDerivedWithRecord(SUBTYPEJND.abs, 
RECORD_DEF.abs); 


RANGE_CONSTRAINT ::= (RaNGE RANGE) { SS.abs = Range(RANGE.abs);} 


RANGE ::= (SIMPLE EXPRESSION DOT_DOT SIMPLE_EXPRESSION) { 
SS.abs = SimpleRange(SIMPLE_EXPRESSION$l.abs, 
SIMPLE_EXPRESSION$2.abs); 

} 

| (NAME TIC RaNGE) { SS.abs = NameTicRange(NAME.abs);} 

| (NAME TIC RaNGE '(' EXPRESSION 7) { 

SS.abs = NameTicRangeExp(NAME.abs, EXPRESSION.abs); 


ENUMJDJ5 ::= (ENUMJD) {SS.rev = ENUMJD.abs::$S.tail;} 
| (ENUMJD_S ENUMJD) { 
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ENUM_ID_S$2.tail = ENUM_ID.abs::$$.tail; 
$$.rev = ENUM_ID_S$2.rev; 

} 


ENUMJD : := (ID) { Slabs = Id(Ident(ID)); } 

| (CHARJLIT) { SS.abs = CharLit(CHAR LIT); } 


INTEGER_TYPE ::= (RANGE_SPEC) { SS.abs = RangeSpec(RANGE_SPEC.abs); } 
| (MOD EXPRESSION) { SS.abs = ModExpr(EXPRESSION.abs); } 


RANGE_SPEC ::= (RANGECONSTRAINT) { 

SS.abs = RangeSpecConstr(RANGE_CONSTRAINT.abs); 


RANGESPECOPT ::= () { SS.abs = RangeSpecOptNull(); } 

| (RANGE_SPEC) { SS.abs = RangeSpecOpt(RANGE_SPEC.abs); } 


REAL_TYPE :: = (DIGITS EXPRESSION RANGE_SPEC_OPT) { 

SS.abs = FloatType(EXPRESSION.abs, RANGE_SPEC_OPT.abs); } 
| (FIXED_TYPE) { SS.abs = FixedType(FIXED_TYPE.abs); } 


FIXED_TYPE ::= (DELTAEXPRESSION RANGE SPEC) { 

SS.abs = FixedDelta(EXPRESSION.abs, RANGE_SPEC.abs);} 

| (DELTA EXPRESSION DIGITS EXPRESSION RANGE_SPEC_OPT) { 
SS.abs = FixedDeltaDigits(EXPRESSIONS 1 abs, EXPRESSION$2.abs, 
RANGE_SPEC_OPT.abs); } 


ARRAY TYPE ::= (ARRAY ‘(‘ INDEX_S ')’ OF COMPONENT_SUBTYPE_DEF) { 
INDEX_S.tail = IndexNil; 

SS.abs = UnconstrArray(INDEX_S.rev, 

COMPONENT_SUBTYPE DEF.abs); } 

| (ARRAY '(* ITER_DISCRETE_RANGE_S *)’ OF COMPONENT SUBTYPEJDEF) { 
ITERDISCRETERANGES.tail = DiscreteRangeNil; 

SS.abs = ConstrArray (ITER_DISCRETE_RANGE_S.rev, 

COMPONENT SUBTYPE DEF.abs);} 


COMPONENT_SUBTYPE_DEF ::= (ALIASED OPT SUBTYPE_IND) { SS.abs = 
CompSubtypeDet(ALIASED_OPT.abs, SUBTYPEJND.abs); } 


ALIASED OPT ::= (){ SS.abs = AliasedOptNull(); } 
| (ALIASED) { SS.abs = AIiasedOptQ, } 
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1NDEX_S ::= (NAME RaNGE BOX) {SS.rev = NAME.abs::$$.tail;} 
| (INDEXS 7 NAME RaNGE BOX) { 

INDEX_S$2.tail = NAME.abs::$$.tail; 

$$.rev = INDEX_S$2.rev; } 


ITER_DISCRETE_RANGE_S ::= (DISCRETE_RANGE) { 

SS.rev = DISCRETE_RANGE.abs::$$.tail;} 

| (ITER_DISCRETE_RANGE_S 7 DISCRETE_RANGE) { 

ITER_DISCRETE_RANGE_S$2.taiI = DISCRETE_RANGE.abs::$$.tail; 
$$.rev = ITER_DISCRETE_RANGE_S$2.rev;} 


DISCRETE_RANGE ::= (NAME RANGE_CONSTR_OPT) { 

SS.abs = DiscRangeName(NAME.abs, RANGE_CONSTR_OPT.abs); } 
| (RANGE) { $$.abs = DiscRangeRange(RANGE.abs); } 


RANGE_CONSTR_OPT ::= () { $$.abs = Empty RangeConstrOptQ; } 

| (RANGE_CONSTRAINT) { SS.abs = RangeConstr(RANGE_CONSTRAINT.abs);} 


RECORD_DEF ::= (RECORD PRAGMA_S COMP_LIST END RECORD) { 
PRAGMA_S.tail = PragmasNil; 

SS.abs = Record(PRAGMA_S.rev, COMP_LIST.abs); } 

| (NuLL RECORD) { SS.abs = NullRecoid(); }~ 


TAGGED_OPT ::= () { SS.abs = TaggedOptNull();} 

| (TAGGED) { SS.abs = Tagged(); ) 

| (ABSTRACT TAGGED) { SS.abs = AbstractTaggedQ;} 


COMP_LIST ::= (COMP_DECL_S VARIANT_PART_OPT) { 
SS.abs = CompListWithVariant(COMP_DECL_S.abs, 
VARIANT_PART_OPT.abs); } 

| (VARIANTJPART PRAGMA_S) { 

PRAGMA_S.tail = PragmasNil; 

SS.abs = CompListWithPragma(VARIANT_PART.abs, 
PRAGMA_S.rev); ) 

| (NuLL 7 PRAGMA S) { 

PRAGMA_S.tail = PragmasNil; 

SS.abs = NullWithPragma(PRAGMA_S.rev); } 


COMP_DECL_S ::= (COMP_DECL) { SS.abs = CompDecl(COMP_DECL.abs); } 
| (COMP_DECL_S PRAGMA S COMP_DECL) J 
PRAGMAS.tail = PragmasNil; 

SS.abs = CompDeclList(COMP DECL_S$2.abs, PRAGMA S.rev, 
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COMPDECL.abs); 


VARIANTPARTOPT ::= (PRAGMA_S) { 

PRAGMAStail = PragmasNil; 

$$.abs= VariantPartOptPragma(PRAGMA_S.rev); } 
| (PRAGMA_S VARIANT_PART PRAGMA S) { 
PRAGMA_S$ 1 tail = PragmasNil; 
PRAGMA_S$2.tail = PragmasNil; 

$$.abs = VariantPartOpt(PRAGMA_S$ 1 .rev, 
VARIANT PART. abs, PRAGMA_S$2.rev); } 


COMP_DECL ::= (DEF_ID_S V COMPONENT_SUBTYPE_DEF INIT_OPT V) { 
DEF_ID_S.tail = DefldNil; 

$$.abs = CompDeclDefs(DEF_ID_S.rev, 

COMPONENT_SUBT YPEDEF. abs, INIT_OPT.abs); } 


DISCRIM SPEC S ::= (DISCR1M_SPEC) {$$.rev = DISCRIM_SPEC.abs::$$.tail;} 
| (DISCR1M_SPEC_S DISCRIM_SPEC) { 

DISC RIM_SPEC_S$2. tail = DISCRIM_SPEC.abs::$$.tail; 

$$.rev = DISCRIM_SPEC_S$2.rev; 


DISCRIM SPEC ::= (DEF_ID_S ACCESS_OPT MARK IN1T OPT) { 
DEF_ID_S.tail = DefldNil; 

$$.abs = DiscrimSpecDef(DEF_ID_S.rev, 

ACCESS_OPT.abs, MARK.abs, INIT_OPT.abs);} 


ACCESS_OPT ::=(){ $$.abs = AccessOptNull(); } 
| (ACCESS) { $$.abs = AccessOpt(); } 


VARLANT_PART ::= (CASE ID IS PRAGMA S VARIANT_S END CASE “;’) { 
PRAGMAStail = PragmasNil; 

VARIANTS.tail = VariantNil; 

$$.abs = VariantPart(Ident(ID), PRAGMA_S.rev, 

VAJRIANT_S.rev); } 


VARIANT S ::= (VARIANT) { SS.rev = VARIANT.abs::$$.tail;} 
| (VARIANT_S VARIANT) { 

VARIANT_S$2.tail = VARIANT.abs::$$.tail; 

$$.rev = VARIANT_S$2.rev; 


VARIANT ::= (WHEN CHOICE_S RIGHT SHAFT PRAGMA S COMP_UST) { 
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CHOICES.tail = ChoiceNil; 

PRAGMA_S.tail = PragmasNil; 

$$.abs = VariantChoice(CHOICE_S.rev, PRAGMAS.rev, 
COMP_LIST.abs); } 


CHOICE_S .:= (CHOICE) {$$.rev = CHOICE.abs::$$.tail;} 
| (CHOICE S T CHOICE) { 

CHO!CE_S$2.taiI = CHOICE. abs::ChoiceNil; 
$$.rev = CHOICE_S$2.rev, 


CHOICE ::= (EXPRESSION) { SS.abs = ChoiceExpr(EXPRESSION.abs); } 
| (DISCRETE_WITH_RANGE) { 

Stabs = ChoiceRange(DISCRETE WITHJRANGE.abs); 

} 

| (OTHERS) { SS.abs = ChoiceOthersQ;} 


DISCRETE_WITH_RANGE 

(NAME RANGE_CONSTRAINT) { 

SS.abs = DiscreteNameRange(NAME.abs, 

RANGE J)ONSTRAINT.abs); 

} 

| (RANGE) { SS.abs = DiscreteWithRange(RANGE.abs); } 


ACCESS_TYPE ::= 

(ACCESS SUBTYPEJND) { SS.abs = AccessSubtype(SUBTYPE JND.abs);} 
| (ACCESS CONSTANT SUBTYPEJND) { 

SS.abs = AccessConstSubtype(SUBTYPEJND.abs); 

} 

| (ACCESS ALL SUBTYPEJND) { 

SS.abs = AccessAUSubtype(SUBTYPEJND.abs)-, 

} 

| (ACCESS PROT_OPT PROCEDURE FORMAL_PART_OPT) { 

SS.abs = AccessProcedure(PROT_OPT.abs, FORMAL_PART_OPT.abs); 

} 

| (ACCESS PROT_OPT FUNCTION FORMAL_PART_OPT RETURN MARK) { 
SS.abs = AccessFunction(PROT_OPT.abs, 

F ORMAL_PART_OPT. abs, MARK.abs); 


PROT OPT ::=(){ SS.abs = ProtOptNull(); } 

| (PROTECTED) { SS.abs = ProlectedQ; ) 


DECLJTEM_S ::= 0 { SS.rev = SS.tail; } 
| (DECL ITEM S DECL ITEM) { 
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■ 


DECL_ITEM_S$2.tail = DECLITEM.abs:: SS.tail; 
SS.rev = DECL_ITEM_S$2.rev; 


DECLITEM ::= (DECL) { Slabs = DeclfDECL.abs); } 

| (USE_CLAUSE) { Slabs = UseClauseDecl(USE_CLAUSE.abs); } 
| (REP_SPEC) { SS.abs = DeclRepSpec(REP_SPEC.abs);} 

| (PRAGMA) { SS.abs = DeclPragma(PRAGMA.abs); } 


NAME ::= (ID) { SS.abs = SimpleName(Ident(ID)); } 

| (NAME •(• VALUE_S )’) { 

VALUE_S.tail = ValueNil; 

SS.abs = IndexComp(NAME$2.abs, VALUES.rev); 

} 

| (SELECTED_COMP) { SS.abs = SelectedComp(SELECTED_COMP.abs); } 
| (NAME TIC ATTRIBUTE ID) { 

SS.abs = Attribute(NAME$2.abs, ATTRIBUTEJD.abs); 

> 

| (QUOTED STRING) { SS.abs = OperatorSymbol(QUOTED_STRING); } 


MARK ::= (ID MARKLIST) { 

Slabs = Maik(Ident(ID), MAJRKLIST.abs); } 


TICDOT ::= (TIC ATTRIBUTEJD) { SS.abs = TicOpt(ATTRIBUTE_ID.abs); } 
| (•.' ID) { SS.abs = DotOpt(Ident(ID));} 


MARKLIST ::=(){ SS.abs = MarkListNil; } 

| (TICDOT MARKLIST) { 

Slabs = TICDOT. abs: :MARKL IST$2.abs;} 


COMPOUND_NAME ::= (ID) { SS.rev = Ident(ID)::$$.tail; } 
| (COMPOUND NAME ID) { 

COMPOUND_NAME$2.tail = IdentflD):.$$.tail; 
SS.rev = C OMPOUND_NAME$2 .rev; 


C_NAME_LIST ::= (COMPOUND NAME) { 

COMPOUND_NAME.tail = Empty Compound; 

SS.rev = COMPOUND_NAME.rev:;$$.tail; 

} 

| (C_NAME_LIST COMPOUND_NAME) { 
COMPOUNDNAME.tail = EmptyCompound. 
C_NAME_LIST$2.tail = COMPOUND_NAME.rev::$$.tail; 
SS.rev = C_NAME_LIST$2.rev; 
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VALUE_S ::= (VALUE) {SS.rev = VALUE.abs::$S.tail;} 
| (VALUE_S VALUE) { 

VALUE_S$2.tail = VALUE.abs::$$.tail; 

SS.rev = VALUE_S$2.rev; } 


VALUE ::= (EXPRESSION) { SS.abs = ValaeExpr(EXPRESSION.abs);} 

| (COMP_ASSOC) { SS.abs = ValueCompAssoc(COMP_ASSOC.abs), } 
| (DISCRETE_WITH_RANGE) { 

SS.abs = ValueDiscWithRange(DISCRETE_WITH_RANGE.abs); 


SELECTED_COMP ::= (NAME V ID) { SS.abs = DotId(NAME.abs, Ident(ID));} 
| (NAME V CHAR_LIT) { 

SS.abs = DotUsedChar(NAME.abs, CHAR_LIT); } 

| (NAME V QUOTED_STRING) { 

SS.abs = DotString(NAME.abs, QUOTED_STRING);} 

| (NAME ALL) { SS.abs = DotAll(NAME.abs); } 


ATTRIBUTEJD ::= (ID) { SS.abs = AttribId(Ident(ID));} 
| (DIGITS) { SS.abs = AttribDigits();} 

| (DELTA) { SS.abs = AttribDelta();} 

| (ACCESS) { SS.abs = AttribAccessQ; } 


INTEGER CS ::= (INTEGER) {SS.abs = Integer(INTEGER);}; 

NUMERIC_LIT ::= (INTEGER_CS) {SS.abs = IntLitaNTEGER_CS.abs);} 
| (REAL_CS) {SS.abs = RealLit(REAL_CS);} 


LITERAL ::= (NUMERIC_LIT) { SS.abs = NumLit(NUMERIC_LIT.abs);} 
| (CHAR LIT) { SS.abs = UsedChar(CHAR_LIT); } 

| (NuLL) { SS.abs = NilLit();} 


AGGREGATE ::= 

CC COMP_ASSOC *)’) { SS.abs = AggCompAssoc(COMP_ASSOC.abs);} 
| CC VALUE_S_2 ‘)’) { SS.abs = AggValues2(VALUE_S_2.abs); } 

| CC EXPRESSION WITH VALUE_S ')’) { 

VALUE_S.tail = ValueNil; 

SS.abs = AggExprValue(EXPRESSION.abs, VALUE_S.rev); 

} 

| CC EXPRESSION WITH NuLL RECORD )’) { 

SS.abs = AggExprWithNull (EXPRESSION, abs); 
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| (‘(' NuLL RECORD ')’) { $$.abs = AggExpNullRec(); } 


VALUE_S_2 ::= 

(VALUE 7 VALUE) { $$.abs = ValueS2Pair(VALUE$l.abs, VALUE$2.abs); } 
| (VALUE_S_2 VALUE) < 

$$.abs = ValueS2List(VALUE_S_2$2. abs, VALUE, abs); 


COMP_ASSOC ::= (CHOICE_S RIGHT SHAFT EXPRESSION) { 
CHOICES.lail = ChoiceNil; 

$$.abs = CompAssoc(CHOICE_S.rev, EXPRESSIONS); 


LOGICAL {syn expression expOut; 
inh expression expin;}; 

SHORT CIRCUIT {syn expression expOut; 
inh expression expin;}; 

EXPRESSION ::= (RELATION) { $$.abs = Relation(RELATION.abs);} 
| (EXPRESSION LOGICAL) { 

LOGICALexpIn = EXPRESSION$2.abs; 

$$.abs = LOGICAL.expOul; 

} 

| (EXPRESSION SHORT_CIRCUIT) { 

SHORTCIRCUIT.expIn = EXPRESSION$2.abs; 

SS.abs = SHORT_CIRCUIT .expOut; 


LOGICAL ::= (AND RELATION) { 

$$.expOut = And($$.expIn,RELATION.abs); 

} 

| (OR RELATION) { 

SSexpOut = Or($$.expIn,RELATION.abs); 

} 

| (XOR RELATION) { 

JS.expOut = Xor($$.expIn,RELATION.abs); 

> 


SHORT_CIRCUIT ::= (AND THEN RELATION) { 

$$ expOut = AndThen($$.expIn,RELATION.abs); 

} 

| (OR ELSE RELATION) { 

$$. expOut = OrElse($$.expIn,RELATION.abs); 
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RELATIONAL {syn relation relOut; 
inh simpleexpression seln;}; 


MEMBERSHIP {syn relation relOut; 
inh simple expression seln;}; 


RELATION ::= (SIMPLE_EXPRESSION RELATIONAL) { 
RELATIONAL, seln = SIMPLE_EXPRESSION.abs; 
SS.abs = REL AT IONAL. relOut; 

} 

| (SIMPLE_EXPRESSION MEMBERSHIP) { 

MEMBERSHIP.seln = SIMPLE_EXPRESSION.abs; 
Slabs = MEMBERSHIP.relOut; 


RELATIONAL ::= () {SS.relOut = SimpleExpr(SS.seln);} 

| (•=’ SIMPLE_EXPRESSION) { 

SS.relOut = Equal($$.seIn,SIMPLE_EXPRESSION.abs); } 

I (NE SIMPLE_EXPRESSION) { 

SS.relOut = NotEqual($$.seIn,SIMPLE_EXPRESSION.abs); } 

| (LT_LT SIMPLE_EXPRESSION) { 

SS.relOut = LessThan($$.seIn,SIMPLE_EXPRESSION.abs);} 

| (LT_EQ SIMPLE_EXPRESSION) { 

SS.relOut = LessThanEq($$.seIn,SIMPLE_EXPRESSION.abs);} 

| (GT_GT SIMPLE_EXPRESSION) { 

SS.relOut = GreaterThan($$.seIn,SIMPLE_EXPRESSION.abs); } 

| (GE SIMPLEJEXPRESSION) { 

SS.relOut = GreaterThanEq(S$.seIn,SIMPLE_EXPRESSION.abs);} 


MEMBERSHIP ::= (IN RANGE) { SS.relOut = RangeMember($$.seIn,In,RANGE.abs); } 
| (NOT IN RANGE) { SS.relOut = RangeMember($$.seIn,NotIn,RANGE.abs); } 

| (IN NAME) { SS.relOut = NameMember($$.seIn,In,NAME.abs); } 

| (NOT IN NAME) { SS.relOut = NameMember($$.seIn,NotIn,NAME.abs); } 


ADDING {syn simple_expression seOut; 
inh simple_expression seln; }; 

UNARY {syn simple_expression abs;}; 

SIMPLEEXPRESSION ::= (UNARY) {SS.abs = UN ARY.abs;} 
| ( -• TERM) {SS.abs = Term(Minus(),TERM.abs);} 

I (SIMPLE_EXPRESSION ADDING) { 

ADDING.seln = SIMPLE_EXPRESSION$2.abs. 

SS.abs = ADDING.seOut, 
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UNARY ::= (TERM) {SS.abs = Term(UnaryNull,TERM.abs);} 
| (■+' TERM) {$$.abs = Term(Plus,TERM.abs);} 

| (■-' TERM) {$$ abs = Term(Minus.TERM.abs);} 


ADDING ::=(■+• TERM)} 

SS.seOut = Addition($S.seIn,TERM.abs); 

> 

TERM)} 

SS.seOut = Subtraction(S$.seIn,TERM.abs); 

} 

| ("&’ TERM) { 

SS.seOut = Concat($$.seIn,TERM.abs); 


MULTIPLYING }syn term termOut; 
inh term termln;}; 

TERM ::= (FACTOR) { Slabs = Factor(FACTOR.abs); } 
| (TERM MULTIPLYING) { 

MULTIPLYING, termln = TERMSlabs; 

Slabs = MULTIPLYING.termOut; 


MULTIPLYING ::= (•*’ FACTOR) {SS.termOut = Mult(S$.termIn,FACTOR.abs);} 
| (V FACTOR) {SS.termOut = Divide($$.termIn,FACTOR.abs);} 

| (MOD FACTOR) {SS.termOut = Mod($S.termIn,FACTOR.abs);} 

| (REM FACTOR) {SS.termOut = Rem($$.termIn,FACTOR.abs);} 


FACTOR ::= (PRIMARY) { Slabs = Primary(PRIMARY.abs);} 

| (NOT PRIMARY) { Slabs = NotPrimary(PRIMARY.abs); } 
| (ABS PRIMARY) { $$.abs= AbsPrimary(PRIMARY.abs); } 
| (PRIMARY EXPON PRIMARY prec EXPON) { 

$$.abs= Expon(PRIMARY$l.abs, PRIMARYSl.abs); ) 


PRIMARY ::= (LITERAL) { SS.abs = Literal(LITERAL.abs);} 

| (NAME) { SS.abs = PrimaryName(NAME.abs); } 

| (ALLOCATOR) { Slabs = Allocator(ALLOCATOR.abs); } 

| (QUALIFIED) { SS.abs = Qualified(QUALIFIED.abs); } 

| ('(' EXPRESSION •)’) { SS.abs = Parens(EXPRESSION.abs);} 
| (AGGREGATE) { SS.abs = PrimaryAgg(AGGREGATE.abs); } 


QUALIFIED ::= (NAME TIC AGGREGATE) { 

SS.abs = NameTicAgg(NAME.abs, AGGREGATE.abs); } 

| (NAME TIC r EXPRESSION ')') { 

SS.abs = NameTicExpr(NAME abs, EXPRESSION.abs); } 
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ALLOCATOR ::= (NEW NAME) { SS.abs = newName(NAME.abs); } 

| (NEW QUALIFIED) { SS.abs = NewQualified(QUALIFIED.abs); } 


SUBPROGDECL ::= 

(GENERIC GENERIC_FORMAL_PART SUBPROG_SPEC PSDL_MET_OPT) { 
GENERICJFORMALPART.tail = GenericNil; 

SS.abs = SubprogSpec(GenericHdr(GENERIC_FORMALJPART.rev), 
SUBPROG_SPEC.abs, PSDL_MET_OPT.abs); 

} 

| (SUBPROG_SPEC V PSDL_MET_OPT) { 

$$.abs = SubprogSpec(GenericHdrNil, 

SUBPROGJSPEC.abs, PSDL_MET_OPT.abs); 

|(SUBPROG_SPEC IS GENERICJNST PSDL_COMMENT PSDL_MET_OPT) { 
SS.abs = GenericSubprogInst(SUBPROG_SPEC.abs, 

GENERICJNST.abs, PSDL_MET_OPT.abs);} 

| (SUBPROG_SPEC IS ABSTRACT V PSDL_MET_OPT) { 

Slabs = AbstractSubprogSpec(SUBPROG_SPEC.abs, 

PSDL_MET_OPT.abs);} 


PSDL_MET_OPT ::=(){ Sl abs = MetNull();} 

| (PSDL_COMMENT MAXIMUM EXECUTION TIME INTEGER_CS USEC) { 
SS.abs = MetUsec(INTEGER CS.abs);} 

| (PSDL COMMENT MAXIMUM EXECUTION TIME INTEGER CS MS) { 
SS.abs = MetMs(INTEGER_CS.abs);} 

| (PSDL_COMMENT MAXIMUM EXECUTION TIME INTEGER_CS SEC) { 
SS.abs = MetSec(INTEGER_CS.abs); } 

| (PSDL_COMMENT MAXIMUM EXECUTION TIME INTEGER_CS MIN) { 
SS.abs = MetMin(INTEGER_CS.abs);} 

| (PSDL_COMMENT MAXIMUM EXECUTION TIME INTEGER CS HRS) { 
SS.abs = MetHrs(INTEGER_CS.abs);} 


SUBPROG_SPEC = (PROCEDURE COMPOUND_NAME FORMAL_PART_OPT) { 
COMPOUND_NAME.tail = EmptyCompound; 

SS.abs = SubProgProc(COMPOUND_NAME.rev, FORMAL_PART_OPT.abs); 

} 

| (FUNCTION DESIGNATOR FORMAL_PART_OPT RETURN NAME) { 

SS.abs = SubProgFuncRetum(DESIGNATOR.abs, 

FORMAL PART OPT.abs, NAME.abs), } 

| (FUNCTION DESIGNATOR) { 

SS.abs = SubProgFunc(DESIGNATOR.abs); 

} /* for generic inst and generic rename */ 


DESIGNATOR ::= (COMPOUND NAME) { 

COMPOUND_NAME.tail = EmptyCompound; 
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SS.abs = DesigCompound(COMPOUNDNAME.rev); } 

| (QUOTEDSTRING) { Sl abs = DesigString(QUOTEDSTRING); } 


FORMALPARTOPT ::= () { SS.abs = FormaIPartOptNull(); } 
| (T PARAMS ')’) { 

PARAM_S.tail = ParamNil, 

SS.abs = FormalPart(PARAM_S.rev);} 


PARAM S ::= (PARAM) {$$.rev = PARAM.abs::$$.tail;} 
| (PARAM_S PARAM) { 

PARAM_S$2.tail = PARAM.abs::$S.tail; 

SS.rev = PARAM_S$2.rev; } 


PARAM ::= (DEFJD_S MODE MARK INIT_OPT) { 

DEF_ID_S.tail = DefldNil; 

SS.abs = ParamId(DEF_ID_S.rev, MODE.abs, MARK.abs, INIT_OPT.abs); 


MODE ::= () { SS.abs = ModeNullO; } 

| (IN) { Slabs = InModeO; } 

| (OUT) { SS.abs = OutModeO; } 

| (IN OUT) { SS.abs = InOutModeO; } 

| (ACCESS) { SS.abs = AccessModeO;} 


PKG_DECL ::= 

(GENERIC GENERIC_FORMAL_PART PKG_SPEC ';’) { 

GENERIC_FORMAL_PART tail = GenericNil; 

SS.abs = PkgSpec(GenericHdr(GENERIC_FORMAL_PART.rev), 
PKG_SPEC.abs); } 

| (PACKAGE COMPOUND NAME IS GENER1C INST ;’) { 
COMPOUNDNAME.tail = EmptyCompound, 

SS.abs = GenPkgInst(COMPOUND_NAME.rev, GENERICJNST.abs); 

| (PKG_SPEC ';’) { 

SS.abs = PkgSpec(GenericHdrNil, PKG_SPEC.abs); 


(PACKAGE COMPOUND NAME IS DECL_ITEM_S PRIVATE PART END 
C ID OPT) { 

COMPOUNDNAME.tail = EmptyCompound. 

DECL_ITEM_S.tail = DeclListNil; 

SS.abs = Package(COMPOUND_NAME.rev, DECL JTEM_S.rev, 
PRIVATEPART.abs): 
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CIDOPT ::= () 

| (COMPOUNDNAME) {COMPOUND_NAME.tail = Empty Compound;} 


PRIVATE_PART ::= () { SS.abs = PrivatePartNull(); } 
| (PRIVATE DECL_ITEM_S) { 

DECL_ITEM_S.tail = DeclListNil; 

SS.abs = Private(DECL_ITEM_S.rev); } 


PRIVATE_TYPE ::= (TAGGED_OPT LIMITED_OPT PRIVATE) { 

$$.abs = PrivateType(TAGGED_OPT.abs, LIMITED_OPT.abs); } 


LIMITED_OPT ::= () { SS.abs = LimitedOptNull(); } 
| (LIMITED) { $$.abs = Limiled(); } 


USECLAUSE :;= (USE NAME_S ';') { 
NAME_S.tail = NameNil; 

SS.abs = Use(NAME_S.rev);} 

| (USE TYPE NAME_S ';’) { 
NAMES.tail = NameNil; 

$$.abs = UseType(NAME_S.rev); } 


NAME_S ::= (NAME) { $$.rev = NAME.abs::$$.tail;} 
| (NAME_S 7 NAME) { 

NAME_S$2.tail = NAME.abs;:$$.tail; 

$$.rev = NAME_S$2.rev; } 


RENAME_DECL ::= 

(DEF_ID_S ‘: ’ OBJECT_QUALIFIER_OPT SUBTYPE_IND RENAMES *;’) { 
DEF _ID_S.tail = DefldNil; 

Slabs = RenameDeclSub(DEF_ID_S.rev, 

OBJECT_QUALIFIER_OPT.abs, SUBTYPEJND.abs, RENAMES.abs); 

| (DEF_ID_S EXCEPTION RENAMES •;’) { 

DEF_ID_S.tail = DefldNil; 

Sl abs = RenameExc(DEF_ID_S.rev, RENAMES.abs); 

} 

| (RENAME_UNIT) { SS.abs = RenameUnitDecl(RENAME_UNIT.abs); } 


RENAMEJJNIT ::= (GENERIC GENERIC_FORMAL_PART 
PACKAGE COMPOUND_NAME RENAMES ; ) { 
GENERIC_FORMAL_P ART .tail = GenericNil; 
COMPOUNDNAME.tail = EmptyCompound; 
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SS.abs = RenamePkg(GenericHdr(GENERIC_FORMAL_PART.rev), 
COMPOUNDNAME.rev, RENAMES.abs), } 

| (PACKAGE COMPOUNDNAME RENAMES ',') { 

COMPOUND NAME tail = EmptyCompound; 

SS.abs = RenamePkg(GenericHdrNil, COMPOUND NAME.rev, 
RENAMES.abs); } 

| (GENERIC GENERIC FORMAL PART SUBPROCr_SPEC RENAMES V) { 
GENERIC_FORMAL_P ART.tail = GenericNil; 

SS.abs = RenameSubprog(GenericHdr(GENERIC_FORMAL_PART.rev), 
SUBPROGSPEC.abs, RENAMES.abs); } 

| (SUBPROGSPEC RENAMES V) { 

SS.abs = RenameSubprog(GenericHdrNil, SUBPROG_SPEC.abs, 
RENAMES.abs); } 


RENAMES ::= (ReNAMES NAME) { SS.abs = Renaraes(NAME.abs); } 


TASK_SPEC ::= 

(TASK ID TASK_DEF) { SS.abs = SimpleTask(Ident(ID), TASK_DEF.abs), } 
| (TASK TYPE ID DISCRIM_PART_OPT TASK_DEF) { 

SS.abs = TaskType(Ident(ID), DISCRIM_PART_OPT.abs, 

TASK DEF.abs); } 


TASK_DEF ::= () { SS.abs = TaskDefNull(); } 

| (IS ENTRYJDECL_S REP_SPEC_S TASK_PRIVATE_OPT END ID_OPT) { 
S$ abs = TaskDef(ENTRY_DECL_S.abs, REP_SPEC_S.abs, 
TASK_PRIVATE_OPT.abs);} 


ID_OPT :: = 0 
KID) 


TASK_PRIVATE_OPT ::=(){ SS.abs = TaskPvtOptNullO; } 

| (PRIVATE ENTRY_DECL_S REP_SPEC_S) { 

SS.abs = TaskPvtOpt(ENTRY_DECL_S.abs, REP_SPEC_S.abs); } 


PROT_SPEC ::= 

(PROTECTED ID PROT_DEF) { SS.abs = Prot(ldent(ID), PROT_DEF.abs); } 
| (PROTECTED TYPE ID DISCRIM_PART_OPT PROT DEF) { 

SS.abs = ProtType(Ident(ID), DISCRIM_PART_OPT.abs, 
PROT_DEF.abs); } 


PROT DEF ::= (IS PROT_OP_DECL_S PROT_PRIVATE_OPT END ID_OPT) { 
PROTOPDECLS.tail = ProtOptDeclListNil; 

SS abs = ProtDef(PROT_OP_DECL_S.rev, PROT_PRIVATE_OPT.abs);} 
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PROT PRIVATEOPT ::= () { SS.abs = ProtPvtOptNull(); } 

| (PRIVATE PROT_ELEM_DECL_S) { 

PROT_ELEM_DECL_S.tail = ProtElemDeclNil; 
SS.abs = ProtPvtOpt(PROT_ELEM_DECL_S.rev); } 


PROT OP DECL S ::=(){ $$.rev = SS.tail;} 

| (PROT_OP_DECL_S PROTOPDECL) { 

PROT_OP_DECL_S$2.tail = PROT_OP_DECL.abs::$$.tail; 
$$.rev = PROT_OP_DECL_S$2.rev;} 


PROT_OP_DECL ::= (ENTRY_DECL) { SS.abs = Entry Decl(ENTRY_DECL.abs);} 
| (SUBPROG_SPEC { SS.abs = ProtOptSubprog(SUBPROG_SPEC.abs); } 

| (REP_SPEC) { $$.abs = RepSpec(REP_SPEC.abs); } 

| (PRAGMA) { $$.abs = ProtOptPragma(PRAGMA.abs); } 


PROT_ELEM_DECL_S ::=(){ $$.rev = SS.tail;} 

| (PROT_ELEM_DECL_S PROT_ELEM_DECL) { 

PROT_ELEM DECL S$2.tail = PROT_ELEM_DECL.abs::$$.tail; 
SS.rev = PROT_ELEM_DECL_S$2.rev; } 


PROT EL EM_DECL ;;= 

(PROT_OP_DECL) { SS.abs = ProtOptDecl(PROT_OP_DECL.abs);} 

| (COMPJDECL) { SS.abs = ProtElemCompDecl(COMP_DECL.abs);} 


ENTRY_DECL_S ::= (PRAGMA_S) { 

PRAGMA_S.lail = PragmasNil; 

SS.abs = EntryDeclPragma(PRAGMA_S.rev); } 

| (ENTRY_DECL_S ENTRY_DECL PRAGMA_S) { 
PRAGMA_S.tail = PragmasNil; 

SS.abs = Entry Dec lPragmaList(ENTRY_DECL_S$2.abs, 
ENTRY_DECL.abs, PRAGMA_S.rev);} 


ENTRY_DECL ::= (ENTRY ID FORMAL_PART_OPT ■;’) { 

SS.abs = EntryDeclId(ldent(ID),FORMAL_PART_OPT.abs); } 

| (ENTRY ID (‘ DISCRETE_RANGE *)’ FORMAL_PART OPT “;’) { 
SS.abs = EntryRange(Ident(ID), DISCRETE_RANGE.abs, 
FORMAL_PART_OPT.abs); } 


REP_SPEC_S ::= () { SS.abs = RepSpecNull(); } 

| (REP SPEC S REP_SPEC PRAGMA S) { 

PRAGMAS.tail = PragmasNil; 

SS.abs = RepSpecList(REP_SPEC_SS2.abs, REP SPEC.abs, 
PRAGMA_S.rev); } 
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COMP_UNIT 

(CONTEXTSPECOPT PRIVATE_OPT PKG DECL PRAGMA S) { 
PRAGMAS.tail = PragmasNil; 

$$.abs = CompUnit(CONTEXT_SPEC_OPT.abs, PRIVATE_OPT.abs, 
PKGDECL.abs, PRAGMAS.rev); } 


PRIVATE_OPT ::=(){ SS.abs = PrivateOptNull();} 
| (PRIVATE) { Slabs = PnvateOpt(), } 


CONTEXT_SPEC_OPT ::= () { SS.abs = ContextSpecNull(); } 

| (CONTEXT SPEC) { SS.abs = ContextSpec(CONTEXT_SPEC.abs);} 


CONTEXTSPEC ::= 

(CONTEXT_SPEC_OPT WITH_CLAUSE USE_CLAUSE_OPT) { 
USE_CLAUSE_OPT.tail = UseClauseOptNil; 

SS.abs = Context WithUse(CONTEXT_SPEC_OPT.abs, 
WITH_CLAUSE.abs, USE_CLAUSE_OPT.rev); } 

| (CONTEXT SPEC PRAGMA) { 

SS.abs = ContextPragma(CONTEXT_SPEC$2.abs, PRAGMA.abs); } 


WITH_CLAUSE ::=(WITH C_NAME_LIST ';’) { 
C_NAME_LIST.tail = CompoundNameNil; 
SS.abs = WithClause(C_NAME_LIST.rev);} 


USE_CLAUSE_OPT ::= () { SS.rev = SS.tail;} 

| (USE_CLAUSE_OPT USE_CLAUSE) { 

USE_CLAUSE_OPT$2.tail =USE_CLAUSE.abs: :$$.tail; 
SS.rev = USE_CLAUSE_OPT$2 rev;} 


BODY_STUB ::= (TASK BoDY ID IS SEPARATE V) { SS.abs = TaskStub(Ident(ID));} 
| (PACKAGE BoDY COMPOUND_NAME IS SEPARATE ',’) { 
COMPOUND_NAME.tail = EmptyCompound; 

SS.abs = PkgStub(COMPOUND_NAME.rev);} 

| (SUBPROG SPEC IS SEPARATE ;’) { 

S$ abs = SubprogStub(SUBPROG_SPEC.abs); } 

| (PROTECTED BoDY ID IS SEPARATE ';’) { 

SS.abs = ProtStub(Ident(ID));} 


GENERIC_FORMAL_PART ::=(){ SS.rev = SS.tail.} 

| (GENERIC FORMAL PART GENERIC FORMAL) { 

GENERIC_FORMAL_PART$2.tail = GENERIC_FORMAL.abs::$S.tail; 
SS.rev = GENERIC FORMAL_PART$2.rev; } 
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GENERICFORMAL ::= (PARAM V) { SS.abs = GenParmffARAM.abs); } 

| (TYPE ID GENERICDISCRIMPARTOPT IS GENERICTYPEDEF ;’) { 
SS.abs = GenTypeParm(Ident(ID), GENERIC JXSCRIMPARTOPT. abs, 
GENERIC_TYPE_DEF.abs); } 

| (WITH PROCEDURE ID FORMAL_PART_OPT SUBP_DEFAULT V) ( 
$$.abs = GenProcPaim(Ident(ID), FORMAL_PART_OPT.abs, 
SUBP_DEFAULT.abs);} 

| (WITH FUNCTION DESIGNATOR FORMAL_PART_OPT RETURN NAME 
SUBP_DEFAULT ;’) { 

SS.abs = GenFuncParm(DESIGNATOR.abs, FORMAL_PART_OPT.abs, 
NAME.abs, SUBP_DEFAULT.abs);} 

| (WITH PACKAGE ID IS NEW NAME ‘(‘ BOX •)’{ 

SS.abs = GenPkgParmBox(Ident(ID), NAME.abs); > 

| (WITH PACKAGE ID IS NEW NAME *;•) { 

SS.abs = GenPkgParm(Ident(ID), NAME.abs);} 

| (USE_CLAUSE) { SS.abs = GenUseparm(USE_CLAUSE.abs); } 


GENERIC_DISCRIM_PART_OPT ::= () { SS.abs = GenDiscOptNull();} 
| ( (' DISCRIM_SPEC_S ‘)’) < 

DISCRIM_SPEC_S.tail = DiscrimSpecNil; 

SS.abs = GenDisc(DISCRIM_SPEC_S.rev);} 

| (‘0 BOX T) { SS.abs = GenBox(), } 


SUBP_DEFAULT ::= () { SS.abs = SubpDefaultNull();} 

| (IS NAME) { SS.abs = SubpDetName(NAME.abs); } 
I (IS BOX) { SS.abs = SubpDefBoxQ, } 


GENERIC_TYPE_DEF ::= (‘(‘ BOX •)’) { SS.abs = GenTypeBox(); } 

I (RaNGE BOX) { SS.abs = GenTypeRangeBoxO;} 

| (MOD BOX) { SS.abs = GenTypeModBox();} 

| (DELTA BOX) { SS.abs = GenTypeDeltaBox(); } 

I (DELTA BOX DIGITS BOX) { SS.abs = GenTypeDeltaDigBoxO;} 

| (DIGITS BOX) { SS.abs = GenTypeDigitsBox(); } 

| (ARRAY_TYPE) { SS.abs = GenTypeAiTay(ARRAY_TYPE.abs); } 

| (ACCESS_TYPE) { SS.abs = GenTypeAccess(ACCESS TYPE.abs);} 
| (PRIVATE_TYPE) { SS.abs = GenTypePriv(PRIVATE_TYPE.abs);} 

| (GENERIC_DERI VED_T YPE) { 

SS.abs = GenTypeDerived(GENERIC_DERIVED_TYPE.abs); } 


GENERIC DERIVED TYPE ::= 

(NEW SUBTYPE_IND) { SS.abs = GenDerivedSubt(SUBTYPEJND.abs); } 
| (NEW SUBTYPEJND WITH PRIVATE) { 

$$ abs = GenDerivedSubtPriv(SUBTYPE IND.abs); } 

| (ABSTRACT NEW SUBTYPE JND WITH PRIVATE) { 

SS.abs = GenDerivedAbst(SUBTYPEJND.abs); } 



GENERICJNST ::= (NEW NAME) { $$.abs =GenInst(NAME.abs), } 


REP_SPEC ::= (FOR MARK USE EXPRESSION *;’) { 

Slabs = AttribDef(MARK.abs, EXPRESSION abs); } 

| (FOR MARK USE RECORD ALIGN.OPT COMP_LOC_S END RECORD 
SS.abs = RecordTypeSpec(MARK.abs, ALIGN_OPT.abs, 
COMP_LOC_S.abs); } 

| (FOR MARK USE AT EXPRESSION V) { 

Slabs = AddressSpec(MARK.abs, EXPRESSION.abs); } 


ALIGN_OPT ::= () { SS.abs = AlignOptNulI(); } 

| (AT MOD EXPRESSION Y) { SS abs = AlignOpt(EXPRESSION.abs); } 


COMP LOC S ::= () { $$.abs = CompLocNuII(); } 

| (COMP LOC S MARK AT EXPRESSION RaNGE RANGE ;’) { 
SS.abs = CompLocList(COMP_LOC_S$2.abs, MARK.abs, 
EXPRESSION.abs, RANGE.abs); } 
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APPENDIX E. SSL SOURCE CODE: TRANSFORMATIONS 


The source code below is used to specify the allowable transformations for Ada 95 
productions. Transformation declarations specify the manner in which a user may 
manipulate the abstract syntax tree while using the translator in the interactive mode. 


'* File: transforms. ada9x.ssl 

* Date: 3 March, 1995 

* Author: Chris Eagle 

* System: Sun SPARCstation 

* Description: This file contains the transform rules which 

* specify the ways in which users of the syntax directed 

* may transform the syntax tree of an Ada 9x package 

* specification. 


>mpilation>: Compilation(<pragma_s>, 

CUList(<comp_unit>,[comp_unit_list])) 


transform comp_unit_list 

on “COMPJJNIT” <comp_unit_list>: CUList(<comp_unit>, [comp_unit_list]) 


transform pragma 

on “ID” <pragma>: Pragmald(<identifier>), 

on “LIST” <pragma>: PragmaSimple(<identifier>, <pragma_arg_s>) 


transform pragmaarg 

on “EXPR" <pragma_arg>: PragmaExp(<expression>), 

on “NAMED” <pragma_arg>: PragmaNameExp(<identifiei>, 

<expression>) 


transform dec I 
on "OBJECT” 

on “NUMERIC” 
on “TYPE” 

on “SUBTYPE” 
on "SUBPROG” 
on “PKG” 


<decl>: ObjDecl(<def_id_S>, <object_qualifier_opt>, 
<Object_subtype_def>, <init_opt>), 

<decl>: NumDecl(<defJd_s>, <expression>), 
<decl>: TypeDecl(<identifier>, <discrim_part_opt>, 
<type_completion>), 

<decl>: SubTypeDecl(<identifier>, <subt>'pe_ind>), 
<decl>: SubProgDecl(<subprog_decl>), 

<decl>: PkgDecl(<pkg_decl>), 

<decl>: TaskDecl(<task_spec>), 
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on “PROTECTED” 
on “EXCEPTION” 
on “RENAMES" 
on "BODY_STUB” 


<decl>: ProtDecl(<prot_spec>), 
<decl>: ExcDecl(<def_id_s>), 

<decl>: RenameDecI(<rename_decl>), 
<decl>: BodyStubDecl(<body_stub>) 


transform object_subtype_def 

on “SUBTYPE” <object_subtype_de£>: Subtypelnd(<subtype_ind>), 

on “ARRAY” <object_subtype_def>:ArrayType(<array_type>) 


transform type def 
on “ENUM” 
on “INT” 
on “REAL” 
on “ARRAY” 
on “RECORD” 

on “ACCESS” 
on “DERIVED” 
on “PRIVATE” 


< typ e _d e f >; EnumTypeDef(<enum_id_s>), 
<t yP e _d e f >: IntTypeDef(<integer_type>), 
<type_def>: RealTypeDef(<real_type>), 
<type_def>: ArrayTypeDef(<array_type>), 
<type_def>: RecordType(<tagged_opt>, 
<Iimited_opt>, <record_def>), 
<type_def>: AccessTypeDef(<access_type>), 
<type_def>: DerivedTypeDef(<derived_type>), 
<type_def>: PrivateTypeDef(<privateJype>) 


transform subtype_ind 

on “CONSTRAINT” <subtype_ind>: SubtypeIndConstraint(<name>, 

<constraint>), 

on "NAME" <subtype_ind>: SubTypeIndName(<name>) 


transform constraint 
on “RANGE” 
on “DIGITS” 


<constraint>: RangeConstraint(<range_constraint>), 
<constraint>: DecDigConstraint(<expression>, 
<range_constr_opt>) 


transform derived type 


on “NEW” <derived_type>: NewDerivedType(<subtype_ind>), 

on “NEW PRIVATE” <derived_type>: NewDerivedWithPrivate(<subtype_ind>), 

on “NEWRECORD" <derived_type>: NewDerivedWithRecord(<subtype_ind>, 

<record_de£>), 

on “ABSTRACT_PRIVATE” <derived_type> 


: AbsNewDerivedWithPrivate(<subtype_ind>), 
on "ABSTRACT_RECORD” <derived_type>: 

AbsNewDerivedWithRecord(<subtype_ind>, 

<record_def>) 


<range>: SimpleRange(<simple_expression>, 
<simple_expression>). 
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on “RANGE" <range>: NameTicRange(<name>), 

on '“RANGE(EXPR)” <range>: NameTicRangeExp(<name>, <expression>) 

transform enum_id 

on “ID” <enum_id>: Id(<identifier>), 

on “CHAR LIT” <enum_id>: CharLit(<CHAR_LIT>) 


transform integer_type 

on “RANGE” <integer_type>: RangeSpec(<range_spec>), 

on “MOD” <integer_type>: ModExpr(<expression>) 


transform real_type 
on “FLOAT” 
on “FIXED” 


transform fixed_type 

on “DELTA” <fixed_type>: FixedDelta(<expression>, <range_spec>), 

on “DLETA_DIGITS” <fixed_type>: FixedDeltaDigits(<expression>, 

<expression>, <range_spec_opt>) 


transform array_type 

on “UNCONSTRAINED” <array_type>: UnconstrArray(<index_s>, 

<component_subtype_def>), 

on “CONSTRAINED” <array_type>: ConstrArray(<iter_discrete_range_s>, 

<component_subty pe_def>) 


transform discrete_range 

on “NAME” <discrete_range>: DiscRangeName(<name>, 

<range_constr_opt>), 

on “RANGE” <discrete_range>: DiscRangeRange(<range>) 


transform record_de 
on “RECORD” 
on “NULL” 


<comp_list>: CompListWithVariant(<comp_decl_s>, 
<variant_part_opt>), 

<comp_list>: CompListWithPragma(<variant_part>, 
<pragma_s>), 

<comp_list>: NullWithPragma(<pragma_s>) 



<record_def>: Record(<pragma_s>, <comp_list>), 
<record_def>: NulIRecord 


<real_type>: FloatType(<expression>, <range_spec_opt>), 
<real_type>: FixedType(<fixed_type>) 
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transform variant_part_opt 

on “PRAGMA” <variant_part_opt>: VariantPartOptPragma(<pragma_s>), 

on “VARIANT” <variant_part_opt>: VanantPartOpt(<pragma_s>, 

<variant_part>, <pragma_s>) 


transform choice 

on “EXPR” <choice>: ChoiceExpr(<expression>), 

on “RANGE” <choice>: ChoiceRange(<discrete_with_range>), 

on “OTHERS" <choice>: ChoiceOthers 


transform access_type 

on “SUBTYPE” <access_type>: AccessSubtype(<subtype_ind>), 

on “CONST_SUBTYPE” <access_type>: AccessConstSubtype(<subtype_ind>), 

on “AU_SYBTYPE” <access_type>: AccessAllSubtype(<subtype_ind>), 

on “PROCEDURE” <access_type>: AccessProcedure(<prot_opt>, 

<formaI__part_opt>), 

on “FUNCTION” <access_type>: AccessFunction(<prot_opt>, 

<formal_part_opt>, <mark>) 


transform decl_item 
on “DECL” 
on “USE_CLAUSE” 
on“REP_SPEC” 
on “PRAGMA" 


<decl_item>: Decl(<decl>), 

<decl_item>: UseClauseDecl(<use_clause>), 
<decl_item>: DeclRepSpec(<rep_spec>) > 
<decl_item>: DeclPragma(<pragma>) 


transform name 


on “SELECTED” 
on “ATTRIBUTE” 
on “OPERATOR” 


<name>: SimpleName(<identifier>), 

<name>: IndexComp(<name>, <value_s>), 
<name>: SelectedComp(<selected_comp>), 
<name>: Attribute(<name>, <attribute_id>), 
<name>: OperatorSymbol(<QUOTED_STRING>) 


transform mark 
on “MARK” 


<mark>: Mark(<identifier>, <marklist>) 


<ticdot>: TicOpt(<attribute_id>), 
<ticdot>: DotOpt(<identifier>) 


transform compound name 

on “.ID” <compound_name>: DotCompound(<identifier>, 

<compound_name>) 
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transform value 

on “EXPR” <value>: ValueExpr(<expression>), 

on “COMPASSOC” <value>: ValueCompAssoc(<comp_assoc>), 

on “DISC_WITH_RANGE" <value>: ValueDiscWithRange(<discrete_with_range>) 


transform selectedcomp 

on “DOT ID” <selected_comp> DotId(<name>, <identifier>), 

on “DOTCHAR” <selected_comp>: DotUsedChar(<name>, <CHAR_LIT>), 

on “DOT STRING” <selected_comp>: DotSlring(<name>, 

<QU OTED_STRING>), 

on “DOTALL" <selected_comp>: DotAU(<name>) 


transform attributeid 

on “ID” <attribute_id>: Attribld(<identifier>), 

on “DIGITS” <attribute_id>: AttribDigits, 

on “DELTA” <attribute_id>: AttribDelta, 

on “ACCESS” <attribute_id>: AttribAccess 


on “NUMERIC 
on “CHAR” 
on “NIL” 


transform aggregate 

on “COMP_ASSOC” 
on “VALUES” 
on “EXPR_ VALUE” 
on “EXPR” 

on “EXPR_NULL_REC 


transform expression 
on “RELATION’ 
on“AND” 
on “OR” 
on“XOR” 
on "AND THEN 
on "OR_ELSE” 


transform relation 

on “SIMPLE” <relation>: SimpleExpr(<simple_expression>), 

on ' <relation>: Equal(<simple_expression>, 

<simple_expression>), 

on”/-' <re!ation>: NotEqual(<simpIe_expression>, 

<simple_expression>), 

on <“ <relation>: LessThan(<simple_expression>, 


<expression>: Relation(<relation>), 

<expression>: And(<expression>, <relation>), 
<expression>: Or(<expression>, <relation>), 
<expression>: Xor(<expression>, <relation>), 
<expression>: AndThen(<expression>, <relation>), 
<expression>: OrElse(<expression>, <relation>) 


<aggregate>: AggCompAssoc(<comp_assoc>), 
<aggregate>: AggValues2(<value_s_2>), 

<aggregate>: AggExprValue(<expression>, <value_s>), 
<aggregate>: AggExprWithNull(<expression>), 
<aggregate>: AggExpNullRec 


<literal>: NumLit(<numeric_lit>), 
<literal>: UsedChar(<CHAR_LIT>), 
<literal>: NilLit 







on “RANGEMBR” 

on “NAMEMBR” 

<simpIe_expression>), 

<relation>: LessThanEq(<simple_expression>, 
<simpIe_expression>), 

<relation>: GreaterThan(<simple_expression>, 
<simple_expression>), 

<relation>: GreaterThanEq(<simple_expression>, 
<simple_expression>), 

<relation>: RangeMember(<simple_expression>, 
<membership>, <range>), 

<relation>: NameMember(<simple_expression>, 
<membership>, <name>) 

transform membership 
on “IN” 
on “NOT_IN” 

<membership>: In, 

<membership>: Notin 

transform simple expression 
on “TERM” 

on 

<simple_expression>: Term(<unary>, <term>), 
<simple_expression>: Addition(<simple_expression>, 

<simple_expression>: Subtraction(<simple_expression>, 

<simple_expression>: Concat(<simple_expression>, 
<term>) 

transform unary 

<unary>: Plus, 

<unary>: Minus 

transform term 
on “FACTOR” 

on T 
on “MOD" 
on “REM" 

<term>: Factor(<factor>), 

<term>: Mult(<term>, <factor>), 

<term>: Divide(<term>, <factor>), 

<term>: Mod(<term>, <factor>), 

<term>: Rem(<term>, <factor>) 

transform factor 
on “PRIMARY” 
on “NOT PRIMARY” 
on' ABS PRIMARY” 
on' EXPON” 

<factor>: Primary(<primary>), 

<factor>: NotPrimary(<primary>), 

<factor>: AbsPrimary(<primary>), 

<factor>: Expon(<primary>, <primary>) 

transform primary 
on “LITERAL" 
on “NAME" 

<primary>: Literal(<literal>), 

<primary>: PrimaryName(<name>), 
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on “ALLOCATOR” 
on “QUALIFIED” 
on "(EXPR)” 
on “AGGREGATE” 


<pnmary>: AlIocator(<allocator>), 
<primary>: Qualified(<qualified>), 
<primary>: Parens(<expression>), 
<primary>: PrimaryAgg(<aggregate>) 


transfonn qualified 

on “AGGREGATE” <qualified>: NameTicAgg(<name>, <aggregate>), 

on '“EXPR” <qualified>: NameTicExpr(<name>, <expression>) 


transfonn subprog_decl 
on “SUBPROG” 


<subprog_decl>: SubprogSpec(<generic_hdr>, 


on “GENERIC_SUBPROG” 
on “ABSTRACT_SUBPROG” 


<subprog_decl>: 

GenericSubprogInst(<subprog_spec>, 
<generic_inst>, <psdl_met_opt>), 
<subprog_decl>: 

AbstractSubprogSpec(<subprog_speO, 

<psdl_met_opt>) 


transfonn psdl_met_opt 
on“uSEC” 
on “mSEC” 
on“SEC” 
on “MIN” 
on “HRS” 


<psdl_met_opt>: MetUsec(<integer>), 
<psdl_met_opt>: MetMs(<integer>), 
<psdl_met_opt>: MetSec(<integer>), 
<psdl_met_opt>: MetMin(<integer>), 
<psdl_met_opt>: MetHrs(<integer>) 


transform subprog spec 

on "PROCEDURE” <subprog_spec>: SubProgProc(<compound_name>, 

<formal_part_opt>), 

on “FUNCTION” <subprog_spec>: SubProgFuncRetum(<designator>, 

<formal_part_opt>, <name>), 

on “FUNCTION_DESIGNATOR” <subprog_speO: SubProgFunc(<designator>) 


transform designator 

on “COMPOUND_NAME” <designator>: DesigCompound(<compound_name>), 
on “STRING” <designator>: DesigString(<QUOTED_STRING>) 


transform pkg decl 
on "PKG_SPEC” 
on “GENERICPKGINST 


transform use clause 

on “USE" <use_clause>: Use(<name_s>), 


<pkg_decl>: PkgSpec(<generic_hdr>, <pkg_speO), 
<pkg_decl>: GenPkgInst(<compound_name>, 
<generic_inst>) 
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on “USE_TYPE” <use_clause>: UseType(<name_s>) 


transform renamedecl 
on “SUBTYPE” 


on “EXCEPTION’ 
on “UNIT” 


transform rename_unit 
on “PKG” 

on “SUBPROG” 


transform task_spec 
on “TASK" 
on “TASK_TYPE 


transform prot_spec 

on “PROTECTED” <prot_speO; Prot(<identifier>, <prot_def>), 

on “PROTECTED_TYPE” <prot_speo: ProtType(<identifier>, 

<discrim_part_opt>, <prot_def>) 


<task_speo: SimpleTask(<identifier>, <task_def>), 
<task_spec>: TaskType(<identifier>, <discrim_part_opt>, 
<task_def>) 


<rename_unit>: RenamePkg(<generic_hdr>, 
<compound_name>, <renames>), 
<rename_unit>: RenameSubprog(<generic_hdr>, 
<subprog_speo, <renames>) 


<rename_decl>: RenameDeclSub(<def id s>, 

<object_qualifier_opt>, <subtype_ind>, 
<renames>), 

<rename_decl>: RenameExc(<def_id_s>, <renames>), 
<rename_decl>: RenameUnitDecl(<rename_unit>) 


transform prot_op_decl 
on“ENTRY" 


on “REPSPEC” 
on “PRAGMA” 


<prot_op_decl>: EntryDecl(<entry_decl>), 
<prot_op_decl>: ProtOptSubprog(<subprog_spec>), 
<prot_op_decl>: RepSpec(<rep_spec>), 
<prot_op_decl>: ProtOptPragma(<pragma>) 


transform prot_elem_decl 

on"OP_DECL” <prot_elem_decl>: ProtOptDecl(<prot_op_decl>), 

on “ELEMJDECL” <prot_elem_decl>: ProtElemCompDecl(<comp_decl>) 


transform entry_decl 

on “ENTRY” <entry_decl>: EntryDeclId(<identifier>, 

<formal_part_opt>), 

on “RANGE_ENTRY” <entry_decl>: EntryRange(<identifier>, <discrete_range>, 

<formal_part_opt>) 


transform context spec opt 

on “CONTEXT SPEC” <context_spec_opt>: ContextSpec(<conlext_spec>) 
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transform contextspec 

on “CONTEXTWITHUSE” <context_spec>: 

ContextWithUse(<context_spec_opt>, 

<with_clause>, <use_clause_opt>), 

on “PRAGMA” <eontext_spec>: ContextPragma(<context_spec> t 

<pragma>) 


transform bodystub 
on “TASK” 


on “PROTECTED” 


<body_stub>: TaskStub(<identifier>), 
<body_stub>: PkgStub(<compound_name>), 
<body_stub>: SubprogStub(<subprog_spec>), 
<body_stub>: ProtSwb(<identifier>) 


transform generic_hdr 

on “GENERIC_FORMALS” <generic_hdr>: GenericHdr(<generic_formal_part>) 


transform generic formal 
on “PARM” 
on “TYPE” 


on “PROCEDURE” 
on "FUNCTION” 


on “PKG” 
on “USE” 


<generic_formal>: GenPann(<param>), 

<generic_formal>: GenTypeParm(<identifier>, 

<generic_discrim_part_opt>, <genenc_type_def>), 
<generic_formal>: GenProcPann(<identifier>, 
<formal_part_opt>, <subp_default>), 
<generic_formal>: GenFuncParm(<designator>, 

<formal_part_opt>, <name>, <subp_default>), 
<generic_formal>: GenPkgParmBox(<identifier>, 

<generic_fonnal>: GenPkgParm(<identifier> > <name>), 
<generic_formal>: GenUseparm(<use_clause>) 


transform generic_type_def 

on “RANGEo” 
on “MODo” 
on “DELTAo” 
on "DELTA_DIGITS<=>” 
on “DIGITSo” 
on "ARRAY” 
on “ACCESS” 
on “PRIVATE” 
on "DERIVED” 


<generic_type_def>: GenTypeBox, 
<generic_type_def>: GenTypeRangeBox, 
<generic_type_def>: GenTypeModBox, 
<generic_type_def>: GenTypeDeltaBox, 
<generic_type_def>: GenTypeDeltaDigBox, 
<generic_type_def>: GenTypeDigttsBox, 
<genenc_type_def>: GenTypeAiray(<array_type>), 
<generic_type_def>: GenTypeAccess(<access_type>), 
<genenc_type_def>: GenTypePriv(<private_type>), 
<generic_ty pe_def>: 

GenTypeDerived(<generic_derived_type>) 


transform generic derived type 

on "SUBTYPE” <generic_denved_type>: GenDerivedSubt(<subtype_ind>), 




on “PRIVATE” 

on“ABSTRACT” 

<generic_deri vedty pe>: 

GenDerivedSubtPriv(<subtype_ind>), 
<generic_derived_type>: GenDerivedAbsl(<subtype_ind>) 

transform rep spec 
on “ATTRIBUTE” 
on “RECORD” 

on “ADDRESS” 

<rep_spec>: AttribDef(<mark>, <expression>), 

<rep_speo: RecordTypeSpec(<mark>, <align_opt>, 
<comp_loc_s>), 

<rep_speO: AddressSpec(<mark>, <expression>) 

transform objectqualifieropt 
on “ALIASED” 
on “CONSTANT” 
on “ALIASED_CONSTANT” 

<Object_qualifier_opt>: Aliased, 

<object_qualifier_opt>: Constant, 

<object_qualifier_opt>: AliasedConst 

transform init opt 
on “ASSIGN" 

<init_opt>: ExprInitOpt(<expression>) 

transform discrim_part opt 
on “DISCRIM" 
on “BOX” 

<discrim_part_opt>: DiscrimPart(<discrim_spec_s>), 
<discnm_part_opt>: Box 

transform range spec opt 
on “RANGE” 

<range_spec_opt>: RangeSpecOpt(<range_spec>) 

transform aliased opt 
on “ALIASED” 

<aliased_opt>: AliasedOpt 

transform range_constr_opt 

on “RANGE_CONSTRAINT 

" <range_constr_opt>: 

RangeConstr(<range_constraint>) 

transform tagged_opt 
on “TAGGED” 
on “ABSTRACT_TAGGED” 

<tagged_opt>: Tagged, 

<tagged_opt>: AbstractTagged 

transform access opt 
on "ACCESS” 

<access_opt>: AccessOpt 

transform prot opt 

on “PROTECTED” 

<prot_opt>: Protected 



<formal_part_opt>: FormalPart(<param_s>) 


transform formal_part_opt 
on "FORMALS” 


transform mode 


on “IN_OUT” 
on “ACCESS” 


<mode>: InMode, 
<mode>: OutMode, 
<mode>: InOutMode, 
<mode>: AccessMode 


transform private_part 

on “PR IVATE” <private_part>: Private( <decl_item_s>) 

transform limited opt 

on “LIMITED” <Iimited_opt>: Limited 

transform taskdef 

on “TASK” <task_def>: TaskDef(<entry_decl_s>, <rep_spec_s>, 

<task_private_opt>) 


transform task_private_opt 

on “PRIVATE” <task_private_opt>: TaskPvtOpt(<entry_decl_s>, 

<rep_spec_s>) 


transform prot_private_opt 
on “PRIVATE" 


<prot_private_opt>. ProtPvtOpt(<prot_elem_decl_s>) 


transform private opt 
on “PRIVATE” 


<pnvate_opt>: PrivateOpt 


transform generic_discrim_part_opt 

on "DISCRIMINANT" <generic_discrim_part_opt>: GenDisc(<discrim_spec_s>), 

on “BOX” <generic_discrim_part_opt>: GenBox 


transform subp_default 

on “NAME" <subp_default>: SubpDefName(<name>), 

on "BOX” <subp_default>: SubpDetBox 


transform align_opt 
on ALIGN” 


<align_opt>: AhgnOpt(<expression>) 
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form rep spec s 

>n “REPRESENTATION_SPECS”<rep_spec_s>: RepSpecList(<rep_spec_s>, 
<rep_spec>, <pragma_s>) 


>n "COMP_LOCS” <comp_loc_s>: CompLocList(<comp_loc_s>, <mark>, 

<expression>, <range>) 


form type completion 

m “TYPES” <type_completion>: TypeDefCompl(<type_def>) 
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APPENDIX F. INSTALLATION AND USE 


In order to use the translator, all of the SSL source files contained in Appendices A 
through E must be installed. An executable is created utilizing the makefile shown in Figure 
26. The Synthesizer Generator version 4.1 is required in order to create the executable. This 


PROJECT = abstract.ada9x.ssl \ 
abstract.psdl.ssl\ 
attrib.ada9x.ssl \ 
unparse.ada9x.ssl\ 
concrete.ada9x. ssl \ 
transforms.ada9x.ssl \ 
unparse. AdaToPsdl.ssl \ 
unparse.psdl.ssl 


pkgtrans: $(PROJECT) 

sgen -ssl_interpreter -o pkgtrans $(PROJECT) 


cstrip: cstrip.o 

CC -o cstrip cstrip.c 


Figure 26. Translator Makefile 


executable is created to run in either an interactive mode or a batch mode by including the 
-ssLinterpreter switch. In either case, the translator may only be executed from within the 
X Windows System environment. Execution in interactive mode is initiated by the 
command: 

pkgtrans 

In order to execute using the batch mode, the command is: 
pkgtrans -b -1 scriptfile 
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where scriptfile is a file containing SSL commands which are to be executed by the 
translator. A script file is shown in Figure 27. This script file reads in an Ada package 


Open(“temp.strip”, “compilation”, “No”)! 
Save_as(“Text”,’’temp.annotated.ada”, “BASEVIEW”)! 
Change_view(“PSDL_VIEW”, false)! 

Save_as(“Text”, “temp.psdl”, “PSDL_VIEW”)! 

Exit(); 


Figure 27. Batch Mode Script File 


specification required to be in a file named temp.strip, this file is a preprocessed package 
specification which has had all comments removed from it by a comment stripping 
processor (source code follows text). The output of the batch mode is two files, the first is 
a file named temp.annotated.ada which is temp.strip with error comments from the 
translation inserted. The second file produced is called temp.psdl and contains the PSDL 
translation of temp.strip. The file names temp.* are hard coded due to restrictions on 
command line parameters for the translator in the batch mode. In order to provide more 
flexibility, a shell file is used, which allows for the use of command line parameters and 
provides automatic comment stripping. This shell file is shown in Figure 28. This shell 

cstrip $1 temp.strip 
pkgtrans -b -1 transcript 
mv temp.psdl $2 

Figure 28. Translator Shell Execution File 

allows user specified input Ada files and output PSDL files and assuming the file is named 
AdaToPsdl, may be executed as follows: 

AdaToPsdl PkgSpec.a PkgSpec.psdl 

This will translate the file PkgSpec.a to a PSDL file named PkgSpec.psdl, and will also 
produce the file temp.annotated.ada. The source code for a comment stripping program 
follows: 
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#include <stdio.h> 

#include <stdlib.h> 

#include <ctype.h> 

FILE * infile, *outfile; 
int inQuote = 0; 
char ch; 

char chline[256]; 
int currCh = 0; 
int backup = 1; 

void fIusheol() { 
char chi; 

currCh -= backup; 
chline[currCh] = 0; 
if (currCh) 

fprintf(outfile,”%s\n”,chline); 
do { 

chi = fgetc(infile); 

} while ((chi !=EOF) && (chi != ‘\n’)); 
currCh = 0; 
backup =1; 

) 

char GetCh() { 
char ch; 
do { 

ch = fgetc(infile); 

} while ((ch == V) && (ch != EOF) && linQuote); 
chline[cunCh++] = ch; 
return ch; 

} 


int main(int argc, char **argv) { 
if (argc < 3) { 

printf(“USAGE: cstrip infile outfileNn”); 
exit(O); 

1 

infile =fopen(argv[l],”r”); 
if (! infile) { 

printf(“Could not open %s for reading\n”,argv[l]); 
exit(0); 

} 
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outfile = fopen(argv[2],”w”); 
if (! outfile) { 

printf(“Could not open %s for writing\n”,argv[2]); 
exit(O); 

) 

while ((ch = GetCh()) != EOF) { 
if (ch == *V”) inQuote = linQuote; 
if (linQuote) { 
if (ch == ‘-’) { 
backup++; 
ch = GetChO; 
if ((ch =='-’)){ 
backup++; 
ch = GetChO; 
if((ch = ‘P’)){ 
backup++; 
ch = GetChO; 
if((ch = ‘S’)){ 
backup++; 
ch = GetCh(); 
if ((ch = ‘D’)) { 
backup++; 
ch = GetChO; 
if ((ch = ‘L’)) 
continue; 

} 


flusheolO; 

continue; 

} 

else if (ch == V’) inQuote = linQuote; 

) 

} 

backup = 1; 
if (ch == ‘\n’) { 
if (currCh 1= 1) ( 
currCh[chline] = 0; 
fprintf(outfile,”%s”,chline); 

) 

currCh = 0; 

} 
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} 



if (currCh) { 
currCh[chline] = 0; 
fprintf(outfile,”%s\n”,chline); 

} 

fclose(infile); 
fclose(outfile); 
return 0; 


This program strips out all Ada comments with the exception of those which begin as: 


comments of this sort are used by the translator to recognize PSDL constructs annotated 
within Ada programs. 
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APPENDIX G. ADDING PROCEDURE WRAPPERS FOR ADA FUNCTIONS 


The current implementation of CAPS expects all PSDL operators to be 
implemented as Ada procedures. Unfortunately, most software components are written 
using a mix of functions and procedures. In order to perform a complete translation of an 
Ada software component to PSDL, it is necessary to add procedure interfaces for any 
functions which are specified in the Ada package. In order to accomplish this, 
preprocessing must be performed on both the Ada package specification, and the Ada 
package body to insert the required procedure wrappers. Figure 29 shows a sample Ada 


package TestPkg is 
generic 

type x is private; 
function funcl(y : x) return float; 

function func2(z : character) return integer; 
end TestPkg; 

package body TestPkg is 

function funcl(y: x) return float is 
begin 

return 1.0; 
end fund; 

function func2(z : character) return integer is 
begin 

return character’pos(z); 
end func2; 

end TestPkg; 

Figure 29. Ada package with functions only 

package containing both a generic function and a non-generic function. 
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The same package following preprocessing is shown in Figure 30. Procedure 


package TestPkg is 
generic 

type x is private; 
function funcl(y : x) return float; 

generic 

type x is private; 

procedure procedure_funcl(y : x; ProcRetum : out float); 
function func2(z : character) return integer; 

procedure procedure_func2(z : character; ProcRetum : out integer); 
end TestPkg; 

package body TestPkg is 

function funcl(y : x) return float is 
begin 

return 1.0; 
end fund; 

procedure procedure_funcl(y : x; ProcRetum : out float) is 
function func_inst is new fund (x); 
begin 

ProcRetum := func_inst(y); 
end procedure_funcl; 

function func2(z : character) return integer is 
begin 

return character'pos(z); 
end func2; 

procedure procedure_func2(z : character; ProcRetum ; out integer) is 
begin 

ProcRetum := func2(z); 
end procedure_func2; 
end TestPkg; 

Figure 30. Ada package with procedure wrappers for functions 
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interfaces have been added to provide access to all declared functions. Note that for generic 
functions, a generic procedure must be created with identical generic formal parameters 
which will be used to instantiate a version of the generic function within the procedure 
body. 
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